my $fh = CGI::upload('upload');
print $fh; 

##</code><code>##

        while (<$fh>) {
           print;
        }

##</code><code>##

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