HTMLのタイトル取得

金曜日にかいたコードが残っていたので記録します。
普通のブラウザと思わせる必要あり。出力はnkfでもパイプしてやってください。

#!/usr/bin/perl
$USER_AGENT='Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0; .NET CLR 1.0.3705)';
$WGET="/usr/bin/wget -q -O - -U '$USER_AGENT' ";
$str=`$WGET "$ARGV[0]"`;
$str=~/\(.*)\<\/title\>/si;
$title=$1;
print $title,"\n";