open ORIGOUT, ">&STDOUT";
close STDOUT;
my $ok = ! system qw"ping -q -w 1 -c 1", $host;
open STDOUT, ">&ORIGOUT";

print $ok ? "OK\n" : "Failed\n";