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;

##</code><code>##

use IO::Socket::INET;
my $server = IO::Socket::INET->new(LocalPort=>$my_port,Type=>SOCK_STREAM,Listen=>1) or die $!;
while (my $client = $server->accept()) {
    my $message = <$client>;
    print $client "My Pong\n" if ($message =~/My Ping/);
}