Select Code to Download

   $file = $query->upload('uploaded_file');
   if (!$file && $query->cgi_error) {
      print $query->header(-status=>$query->cgi_error);
      exit 0;
   }

Can't use an undefined value as a HASH reference at /path/to/search-ho
+wto.cgi line 185.

sub upload_image {

...
  }

}