my $result;
while (select my $rd = $rin, undef, undef, 60) {
    my $bytes = sysread *CMD, substr($result, -1), 4096;
    last if 1 > $bytes;
}

...

print "I am finished with my task.  My results are: \n";
print $result."\n";


##</code><code>##


I am finished with my task.  My result are:

Pinging google.com [216.239.37.99] with 32 bytes of data:
Reply from 216.239.37.99:bytes=32 time=36ms TTL=244

Ping statistics for 216.239.37.99:
    Packets: Sent = 15, Received = 15, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
    Minimum = 36ms, Maximum = 37ms, Average = 36ms


##</code><code>##


I am finished with my task.  My result are:

Pinging google.com [216.239.37.99] with 32 bytes of data:

Reply from 216.239.37.99: bytes=32 time=37ms TTL=244
Reply from 216.239.37.99: bytes=32 time=36ms TTL=244
Reply from 216.239.37.99: bytes=32 time=36ms TTL=244
Reply from 216.239.37.99: bytes=32 time=36ms TTL=244
Reply from 216.239.37.99: bytes=32 time=36ms TTL=244
Reply from 216.239.37.99: bytes=32 time=36ms TTL=244
Reply from 216.239.37.99: bytes=32 time=36ms TTL=244
Reply from 216.239.37.99: bytes=32 time=36ms TTL=244
Reply from 216.239.37.99: bytes=32 time=36ms TTL=244
Reply from 216.239.37.99: bytes=32 time=36ms TTL=244
Reply from 216.239.37.99: bytes=32 time=36ms TTL=244
Reply from 216.239.37.99: bytes=32 time=36ms TTL=244
Reply from 216.239.37.99: bytes=32 time=37ms TTL=244
Reply from 216.239.37.99: bytes=32 time=37ms TTL=244
Reply from 216.239.37.99: bytes=32 time=37ms TTL=244

Ping statistics for 216.239.37.99:
    Packets: Sent = 15, Received = 15, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
    Minimum = 36ms, Maximum = 37ms, Average = 36ms