--- apache2-frontend/check	2015/06/15 18:16:46	1.1
+++ apache2-frontend/check	2015/06/18 16:35:01	1.4
@@ -1,15 +1,18 @@
 #!/opt/bin/perl
 
+use FindBin;
 use LWP::Simple;
 
-open my $fh, "<", "check.txt"
+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 =~ s,^([^/]+)/,$1:34567/, if $ARGV[0] eq "-t";
 
    $url = "http://$url";