Select Code to Download

my $fh        = $q->upload( $file );

my $fh        = $q->upload( 'file' );

#!/usr/bin/perl

...

print end_form;
print end_html;