Select Code to Download

<FORM ACTION="/path/somescript.cgi" METHOD="POST" ENCTYPE="multipart/f
+orm-data">

my $file = $q->param( 'file' ) or someErrorRoutine( $q, "No file recei
+ved" );
my $fh   = $q->upload( $file );