open(my $h, '-|', 'ping -c 1 127.0.0.1') or die($!);
while(<$h>)
{
  print "PING: $_";
}
close($h) or die($!);