use strict;
use warnings;
 
use CGI;
 
    # create a CGI object (query) for use
my $q = CGI->new;
 

my $fh      = $q->upload('file_field');