use CGI;
$CGI::POST_MAX = 1536000; #1.5MB
my $upload_dir = "C:/Web Sites/Projects/Uploading/datapath";

	my $business_plan_file = $results->valid('file_name');
	#I'm using Data::FormValidator, $results->valid('file_name') is the input from the upload field in my form.
	$business_plan_file =~ s/.*[\/\\](.*)/$1/;    #retrieves filename w/out users full path

my $upload_filehandle = $results->valid('file_name');
open UPLOADFILE, ">$upload_dir/$business_plan_file" or die; 

 binmode UPLOADFILE; 

 while ( <$upload_filehandle> ) 
 { 
   print UPLOADFILE; 
 } 

 close UPLOADFILE;