{
# the beginning of the event loop is above ...
local $\ = "\0";
print $socket $data; 	# $socket is a IO::Socket::INET object
return;
}