my $query = CGI->new(\&hook, $sessid);
sub hook
{
  $my_file="/tmp/upload/$umid" . ".meta";
  open(PLOT,">$my_file") || die("This file will not open!");
  flock PLOT, 2; # lock file
  print PLOT $bytes_read;
  print PLOT "/";
  print PLOT $ENV{'CONTENT_LENGTH'};
  flock PLOT, 8; # unlock file
  close(PLOT);
}