# in server:
print $new_sock $_, CRLF;

# in client:
print $sock "Hello there", CRLF;