8 binmode STDOUT => 'encoding(utf8)';
10 my $file = shift @ARGV || exit;
13 open $list, "<$file" || exit;
16 while ($url = <$list>) {
19 print STDERR "getting $url : ";
23 print "$url -> <NG>\n";
27 if ($content =~ /<title>([^<]+)<\/title>/) {
29 print "$url -> $title\n";
32 print "$url -> <?>\n";