I hacked this out of CD::Info, you can find it at http://www.kudla.org/raindog/perl/

open CD, "</dev/cdrom";
sysseek(CD, 32808, 0);
read CD, $data, 32;
print "cd label is $data\n";
[download]

it only works on data cds though, but as you said this is for an mp3 collection that should be ok, right? :) Miker