http://www.tube8.com/asian/japanese-gal/68290/
http://www.tube8.com/asian/my-lovely-love/41152/

http://tech.bayashi.jp/archives/entry/perl/2009/002465.html



tube8_fetcher.pl の文法は以下のようになります。

    # perl tube8_fetcher.pl コマンド 検索キーワード

コマンドは、search と download があります(それぞれ、s または DL でもOK)。
検索キーワードは半角英数字のみです。空白入れられないので注意してください。

ではまず、検索してみます。
# perl tube8_fetcher.pl search aoi


動画が見つかったら、let's download と言われるので、以下のようにダウンロードします。
# perl tube8_fetcher.pl download aoi


そういう場合は、以下のワンライナーをどうぞ。
# perl -MWWW::Tube8 -e 'LWP::UserAgent->new(show_progress=>1)->request(HTTP::Request->new("GET", WWW::Tube8->new({url=>$ARGV[0]})->flv), "$ARGV[1]")' http://www.tube8.com/asian/japanese-girl/28672/ /tmp/hoge.flv



perl -MWWW::Tube8 -e 'LWP::UserAgent->new(show_progress=>1)->request(HTTP::Request->new("GET", WWW::Tube8->new({url=>$ARGV[0]})->flv), "$ARGV[1]")' http://www.tube8.com/asian/japanese-gal/68290/ ./68290.flv &