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.