use CGI;

my $query = CGI->new();
my $uploaded_filehandle = $query->upload('my_upload_field')
    or print_error_page("Sorry, you must upload a file...");
&_upload_file( $uploaded_filehandle );