#
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);