# Server:
use IO::Socket;
my $sock = new IO::Socket::INET(
    LocalPort => '10000',
    Proto     => 'tcp',
    Listen    => 1,
    Reuse     => 1,
) or die;

while (1) {
    my $new_sock = $sock->accept();
    while (<$new_sock>) {
        print $_;
    }
}
close $sock;


# client:
use IO::Socket;
my $sock = new IO::Socket::INET ( 
    PeerAddr => '10.0.0.1', 
    PeerPort => '10000', 
    Proto => 'tcp', )
    or die;

#my $ret = $sock->write("$ARGV[0]\n", length("$ARGV[0]\n"));
my $ret = $sock->syswrite("$ARGV[0]\n", length("$ARGV[0]\n"));
print "wrote $ret bytes\n";
close $sock;