my $file = $q->param('uploaded_file') || error($q,"No file received");
my $file_handle = $q->upload($file);

##</code><code>##

my $file_handle = $q->upload('uploaded_file');