Index: misc/pagetitle.pl
===================================================================
--- misc/pagetitle.pl	(revision 788f3dee979e65cd4aa61e6552cd1b45cf92a01f)
+++ misc/pagetitle.pl	(revision 788f3dee979e65cd4aa61e6552cd1b45cf92a01f)
@@ -0,0 +1,33 @@
+#! /usr/bin/perl -w
+
+use strict;
+use warnings;
+use encoding 'utf-8';
+
+use LWP::Simple;
+
+my $file = shift @ARGV || exit;
+my $list;
+
+open $list, "<$file" || exit;
+
+my ($url, $content);
+while ($url = <$list>) {
+    sleep 1;
+    chomp $url;
+    print STDERR "getting $url : ";
+    $content = get($url);
+    if (! $content) {
+        print STDERR "NG\n";
+        print "$url -> <NG>\n";
+        next;
+    }
+    print STDERR "OK\n";
+    if ($content =~ /<title>([^<]+)<\/title>/) {
+        my $title = $1;
+        print "$url -> $title\n";
+    }
+    else {
+        print "$url -> <?>\n";
+    }
+}