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