open my $ping, "ping $host |";
my @pings = <$ping>;
close $ping;