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/);
}