#!/usr/bin/perl
use IO::Socket;

$destination = 'xxx.xxx.xxx.xxx';
$sock = new IO::Socket::INET (PeerAddr => 'xxx.xxx.xxx.xxx',
                              PeerPort => 4444,
                              Proto    => 'tcp',
                             );
die "Socket could not be created. Reason: $!\n" unless $sock;

print $sock "ping:$destination \n";
print "Client Connected. \n";
print "Server says: ",scalar(<$sock>);
print $sock "Message acknowledged from the client!\n";
print $sock "Good Bye! \n";

print "Ping result =>: ",scalar(<$sock>);
close ($sock);