use warnings;
use strict;
open(PS,"ping localhost|") || die "Failed: $!\n";
while ( <PS> )
{
  #-- do something here
}