##

if($ENV{'REQUEST_METHOD'} eq "POST"){
     my $form = {};
     $form->{filename} = $q->param('filename');
     my $tempfile      = $q->tmpFileName($form->{filename});

     return Dumper($form,$tempfile);
     ...

##

##

 my $upload_meta = $q->uploadInfo($form->{filename});