Select Code to Download

use IO::Socket qw(crlf); # now you can use CRLF constant
$|++;                    # non-buffered

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

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

# server
use strict;
...
print $sock->getline();

close($sock);