use CGI;

our $queryObj = new CGI;
...
...
$uploadFile = $queryObj->upload("fileTextFld");
seek ($uploadFile, 0, 0);
if (open (UPLOADFILE, ">$defaultdir/uploads/newFile")) {
    binmode UPLOADFILE; 
    while (<$uploadFile>) { 
         print UPLOADFILE;
    }
} 
close UPLOADFILE;