Select Code to Download

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

        while (<$fh>) {
           print;
        }

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