my $q = new CGI;

##</code><code>##

my $filehandle = $q->upload("file");