#!/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)