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