Select Code to Download

use CGI;

my $query = CGI->new();
&_upload_file($query->param('my_upload_field'));

use CGI;

...
my $uploaded_filehandle = $query->upload('my_upload_field')
    or print_error_page("Sorry, you must upload a file...");
&_upload_file( $uploaded_filehandle );

use CGI;
use File::Copy;
...
    $dest_filename =~ s{ ^.* ( \\ | \/ ) }{}x;
    copy($uploaded_fh, $dest_filename) or die "Couldn't copy file to '
+$dest_filename': $!; stopped";
}

use CGI::Carp 'fatalsToBrowser';