sub print_tofile{
open(TMPFILE, ">>$file") or die "Can not open $file\n";

  while ($pointer = $sth->fetchrow_hashref){
    $date = $pointer->{'date'};
    $logtime = $pointer->{'logtime'};
    $user  = $pointer->{'user'};
    $volume  = $pointer->{'volume'};
    $directory  = $pointer->{'directory'};
    $filesize = $pointer->{'filesize'};
    $key = "$user\t$volume\t$directory";
      if ( exists $data{$key} )
      {
        $total = ($filesize - $data{$key});
        print TMPFILE "$key\t$total\n";
      } else {
      $data{$key} = $filesize;
      }
  } # End of while.
close TMPFILE;
}
[download]