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