Client:

while($len = sysread($sock, $buffer, 500000000))
{

createFile("<filename>", $buffer, $len, 0);
		
#processFile;
}		


Server:

open READFILE, "<", "<filename>" or die $!;
						binmode(READFILE);

while($len = sysread(READFILE, $buffer, 500000000)){
						   
syswrite($new_sock, $buffer, $len);
							
}
						close(READFILE) or die $!;