/usr/share/doc/libaudio-cd-perl/examples/cddb_lookup.pl is in libaudio-cd-perl 0.05-10+b3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | 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";
}
|