$CGI::POST_MAX=1024*100000; 

my $q = new CGI;
my $myFile = $q->upload('file');

binmode($myFile);

 if (!$myFile && cgi_error()) {
      print $q->header(-status=>cgi_error());
      print $q->p("Error"); 

      exit 0;
   }

my $dir = "c:\\inetpub\\scripts\\perl\\uploads";

open (MYFILE,">$dir\\test_upload.txt") || die $!;

binmode(MYFILE);
	
     while (<$myFile>) {print MYFILE $_; }
     close (MYFILE);