use Net::CDDBSearch;
$loaded = 1;
print "ok 1\n";


$cddb = Net::CDDBSearch->new(DEBUG=>1);
$cddb->get_albums_artist('Megadeth');
$albums = $cddb->albums();
push(@s,$_) foreach keys %{$albums};
if ($#s > 0) { print "ok 2\n"; } else { print "not ok 2\n"; }

$cddb = Net::CDDBSearch->new();
$cddb->get_albums_album('Youthanasia');
$albums = $cddb->albums();
push(@a,$_) foreach keys %{$albums};
if ($#a > 0) { print "ok 3\n"; } else { print "not ok 3\n"; }

$cddb = Net::CDDBSearch->new();
$cddb->get_songs_album($a[0]);
$info   = $cddb->info();
$tracks = $cddb->tracks();
if ($info->{Title} ne '') { print "ok 4\n"; } else { print "not ok 4\n"; }
push(@t,$_) foreach keys %{$tracks};
if ($#t > 0) { print "ok 5\n"; } else { print "not ok 5\n"; }

output

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>perl test.pl
1..1
ok 1
Net::CDDBSearch=HASH(0x377d2c) >> Calling _get_albums();
Net::CDDBSearch=HASH(0x377d2c) >> Calling _get_url();
Net::CDDBSearch=HASH(0x377d2c) >> URL: http://www.freedb.org/freedb_search.php?a
llfields=NO&allcats=YES&grouping=none&words=Megadeth&fields=artist
not ok 2
not ok 3
not ok 4
not ok 5

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>C:\dnload\Net-CDDBSearch-2.01\
Net-CDDBSearch-2.01>perl test.pl
'C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01' is not recognized as an inte
rnal or external command,
operable program or batch file.

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>1..1
'1..1' is not recognized as an internal or external command,
operable program or batch file.

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>ok 1
'ok' is not recognized as an internal or external command,
operable program or batch file.

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>Net::CDDBSearch=HASH(0x377d2c)
 >> Calling _get_albums();
The filename, directory name, or volume label syntax is incorrect.

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>Net::CDDBSearch=HASH(0x377d2c)
 >> Calling _get_url();
The filename, directory name, or volume label syntax is incorrect.

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>Net::CDDBSearch=HASH(0x377d2c)
 >> URL: http://www.freedb.org/freedb_search.php?a
The filename, directory name, or volume label syntax is incorrect.

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>llfields=NO&allcats=YES&groupi
ng=none&words=Megadeth&fields=artist
'llfields' is not recognized as an internal or external command,
operable program or batch file.
'allcats' is not recognized as an internal or external command,
operable program or batch file.
'grouping' is not recognized as an internal or external command,
operable program or batch file.
'words' is not recognized as an internal or external command,
operable program or batch file.
'fields' is not recognized as an internal or external command,
operable program or batch file.

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>not ok 2
'not' is not recognized as an internal or external command,
operable program or batch file.

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>not ok 3
'not' is not recognized as an internal or external command,
operable program or batch file.

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>not ok 4
'not' is not recognized as an internal or external command,
operable program or batch file.

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>not ok 5
'not' is not recognized as an internal or external command,
operable program or batch file.

C:\dnload\Net-CDDBSearch-2.01\Net-CDDBSearch-2.01>