#
my $fh = $Request->FileUpload('upload_file', 'FileHandle');

open DEST, ">/where/you/whant/to/write/it" ;
# remember to handle errors...

while(<$fh>) {
  print DEST $_;
}

close(DEST);
[download]

Or:

my $fh = $Request->FileUpload('upload_file', 'FileHandle'); 

use File::Copy;
copy $fh, "/where/you/want/to/write/it" or die "...";
[download]

-- Randal L. Schwartz, Perl hacker

Please use binmode($fh) when copying binary files. This will prevent your code from breaking under operating systems and programming languages that make a difference between text and binary files. Your code would scramble files under Windows.

a bit pedantic? :-)