#!/opt/bin/perl

use FindBin;
use LWP::Simple;

open my $fh, "<", "$FindBin::Bin/checklist"
   or die "check.txt: $!";

while (<$fh>) {
   chomp;
   next if /^#/;

   my ($url, $content) = split /\t+/;

   $url =~ s,^([^/]+)/,$1:34567/,;

   $url = "http://$url";

   my $res = get $url;

   if ($res =~ $content) {
      print "$url OK\n";
   } else {
      print "$url NOT OK\n";
      print "$res\n$content\n";
      exit 1;
   }
}