##

  ...
  Filename => $file,
  FH => $q->param('file'),
  ...

##

##

  # uploading the file...
  $filename = $query->param('file');
  if ($filename ne ""){
    $tmp_file = $query->tmpFileName($filename);
  }
  ...
  Filename => $filename,
  Path => $tmp_file,
  ...