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