my $fh = CGI::upload('upload');
   open(FILE, "$fh") or die "error: $!";
   my $source = <FILE>;
   close (FILE);