$handle = tempfile();
	binmode $handle;
	binmode $conn1;
	my $buffer=0;
	while(my $read = sysread($conn1,$buffer,100))
	{
		print "Writing the file\n";
		my $n= syswrite($handle,$buffer,100);
	}
	while(<$handle>)
		{
		print "$_\n";
		}
	return *handle;