use IO::Socket::INET;
my $socket = IO::Socket::INET->new("${my_server}:${my_port}") or die $!;
print $socket "My Ping\n";
my $answer = <$socket>; #should be 'My Pong'
close $socket;