# ./mon1
waiting for more data
waiting for more data
Tx: ADD I 1 1 50.0.5.1
        Rx: ADD I 1 1 50.0.5.1  =>      Done
waiting for more data
Tx: ADD I 1 2 50.0.5.2
        Rx: ADD I 1 2 50.0.5.2  =>      Done
Tx: ADD I 1 3 50.0.5.3
Tx: ADD I 1 4 50.0.5.4
Tx: ADD I 1 5 50.0.5.5
Tx: ADD I 1 6 50.0.5.6
Tx: ADD I 1 7 50.0.5.7
Tx: ADD I 1 8 50.0.5.8
waiting for more data
        Rx: ADD I 1 3 50.0.5.3  =>      Done
waiting for more data
waiting for more data
waiting for more data
waiting for more data
waiting for more data
waiting for more data
waiting for more data
ALSO READ: ADD I 1 4 50.0.5.4

waiting for more data
waiting for more data
...

##</code><code>##

#!/usr/bin/perl

use IO::Select;

if ($::child_pid = open (CHILD, "|-")) {
    { my $h = select(CHILD); $|=1; select($h); }
    sleep 1;            # allow the child's select mechnanism to start
    for (1..8)  {
       my $s = "ADD I 1 $_ 50.0.5.$_\n";
       print CHILD $s;
       print "Tx: $s";
    }
    while (1) { sleep 1; }
} else {
    my $select = IO::Select->new(\*STDIN);
    while (1) {
        print "waiting for more data\n";
        foreach my $client ($select->can_read(1)) {
            $_ = <$client>; chomp;
            print "\tRx: $_  => ";
            for (1..5) {                  # time
                for my $foo (keys %::) {  # waster
                    $zub = \&{$::{$foo}}; # to
                }                         # induce
            }                             # problem
            print "\tDone\n";
        }
        if ($::i++ == 10) {
            my $a = <STDIN>; print "ALSO READ: $a\n";
        }
    }
}