#### my $file = $q->param( 'file' ) or someErrorRoutine( $q, "No file received" ); my $fh = $q->upload( $file );