use CGI::Simple qw(-upload);
my $q = new CGI::Simple;
my $ok = $q->upload( $q->param('upload_file'), '/path/to/write/file.name' );
print "Uploaded ".$q->param('upload_file')." and wrote it OK!" if $ok;