WWW::YourAVHost

ノーコメントで。

# yah.pl
use utf8;
use WWW::YourAVHost;

my $av = WWW::YourAVHost->new;
my $entries = $av->entries(actress => 'みひろ');
foreach my $entry (@{$entries}) {
    $av->get($entry);
}

% yah.pl 
% ls -R
(略)
./みひろ:
1600mihiro_part001.flv  620mihiro_01.flv  AD041_01.flv         mihiro_0719_001.flv
219410_25.flv           66289_1.flv       mihiro060217_01.flv  purin080709_51.flv
(略)