NAME
WWW::Asg - Get video informations from Asg.to
SYNOPSIS
use WWW::Asg;
my $asg = WWW::Asg->new();
my @videos = $asg->latest_videos($page);
foreach my $v ( @videos ) {
my $filepath = "/tmp/$v->{mcd}.flv";
$asg->download_flv($v->{mcd}, $filepath);
}
AUTHOR
Tatsuya Fukata <tatsuya.fukata@gmail.com>
LICENCE AND COPYRIGHT
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.