use CGI qw/:standard/;

my $query = new CGI;
my %in = $query->Vars;

$in{'uploaded_file'} = param('uploaded_file');

return %in;