Select Code to Download

  ## pull the file in a variable
  my $fh = $query->upload('upload');

  ## determine the file type via the headers
  my $type = $query->uploadInfo($fh)->{'Content-Type'};

  ## pull the filename in a variable
  my $fname = $query->param('upload');

  ## determine the file type via the headers
  my $info = $query->uploadInfo($fname);
  my $type = $info->{'Content-Type'};