use Net::Ping;
while (1) {
  my $p = Net::Ping->new(udp);
  if $p->ping($host) {
    print "success\n";
  } else {
    print "failed\n";
  }
  undef $p;
  sleep 3;
}