WWW::CDTV - Get a weekly music ranking from CDTV ( Japanese TV Program )

    use WWW::CDTV;
    my $cdtv  = WWW::CDTV->new;
    my $track = $cdtv->track(1);
    print sprintf( "No.%d is %s by %s ", $track->no, $track->title,
        $track->artist );

http://www.tbs.co.jp/cdtv/

Yusuke Wada <yusuke@kamawada.com>

Copyright (c) 2008, Yusuke Wada <yusuke@kamawada.com>. All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.