#!/usr/local/bin/perl -w

use strict "vars";
#-----------------------------------------------------------------------------
my $Line;
my $PingTaskID;
my $PongLimit = 10;

$| = 1;

while ($PongLimit > 0) {
    print("Pong is waiting for a ping\n");
    do {
        $Line = <STDIN>;
        chomp($Line);
        } while ($Line !~ /^ping/);
    print("Pong got a ping line =$Line=\n");
    ($PingTaskID) = ($Line =~ /^ping *(\d+)/);
    print("Pong will reply to $PingTaskID in 1 second\n");
    sleep(1);
    if (--$PongLimit == 0) {
        print(":::send $PingTaskID pong end\n");
        }
    else {
        print(":::send $PingTaskID pong\n");
        }
    }
#-----------------------------------------------------------------------------