NAME WWW::YourFileHost - Get video informations from YourFileHost SYNOPSIS use LWP::UserAgent; use WWW::YourFileHost; use Perl6::Say; my $url = "http://www.yourfilehost.com/media.php?cat=video&file=hoge.wmv"; my $ua = LWP::UserAgent->new( agent => "WWW::YourFileHost" ); $ua->cookie_jar( HTTP::Cookies->new ); my $yourfilehost = WWW::YourFileHost->new( url => $url , ua => $ua ); say $yourfilehost->p