ようつべダウンローダ

リンク解析は
m#://# and $see{$_} foreach @{[$parser->links]}
にすべきだ とか

# HTML からリンク抜き出し
my $parser = HTML::LinkExtor->new(undef,$base);
$parser->parse($content);
foreach(@{$parser->links}) {
m#://# or next;
my $url = &func_url($_, "is_validurl" ) or next;
$see{$url} = '*';
}

utf8の変換に問題あるとかは
コードかいて、トラバすると吸収されていきます(ぉふるいからみてない

しまっちゃおうね