Select Code to Download

use CGI;
use Data::Dumper;
$q = new CGI;
print $q->header;
print '<pre>' . $q->escapeHTML(Data::Dumper::Dumper($q)) . '</pre>';

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