use strict;
use ExtUtils::testlib;
use Audio::CD ();
my $id = Audio::CD->init;
my $cddb = $id->cddb;
my $info = $id->stat;
$cddb->verbose(1);
printf "cddb id = %lx, total tracks = %d\n",
$cddb->discid, $info->total_tracks;
my $data = $cddb->lookup;
printf "%s / %s [%s]\n", $data->artist, $data->title, $data->genre;
my $tracks = $data->tracks($info);
for my $track (@$tracks) {
print $track->name, "\n";
}