#!/usr/bin/perl
 use strict;
 use warnings;

 use IO::Socket::INET;

 my $listenSocket = IO::Socket::INET->new(
     'LocalPort' => '12345',
     'Listen'    => SOMAXCONN,
     'Reuse'     => 1,
     'Proto'     => 'tcp',
 ) or die $@;

 my $conSocket = $listenSocket->accept;

 while ( defined $conSocket ) {
     my $rsp = q{};
     $conSocket->sysread( $rsp, 20 ) or die $@;
     print "recv: $rsp\n";

     $conSocket->syswrite( "hello, client!\n" ) or die $@;

 } ## end while ( defined $conSocket)


##</code><code>##

 #!/usr/bin/perl
 use strict;
 use warnings;

 use IO::Socket::INET;

 my $socket = IO::Socket::INET->new(
     'Proto'    => 'tcp',
     'PeerAddr' => '172.16.249.232',
     'PeerPort' => '12345',
 ) or die $@;

 $socket->timeout(2);

 while (1) {
     $socket->syswrite( "hello, server!\n") or die $!;

     my $rsp = q{};
     $socket->sysread( $rsp, 20 ) or die $!;
     print "recv:$rsp\n";

     sleep 1;
 } ## end while (1)