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