gistfile1.txt

# get videos list by channel from woopie.jp

use WebService::Simple;

my $channel_id = shift || '6212';
my $woopie = WebService::Simple->new(
    base_url        => "http://www.woopie.jp/api/getChannelVideos",
    response_parser => 'JSON',
);

my $res = $woopie->get( { id => $channel_id, count => 99, start => 0 } );
my $content = $res->parse_response;
use YAML;
print Dump $content;