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;
}

##</code><code>##

use LWP::Simple;
while (1) {
  my $content = get($url);
  if (defined $content) {
    print "success\n";
  } else {
    print "failed\n";
  }
  sleep 4;
}