my $CDROMREADTOCHDR=0x5305;
my $CDROMREADTOCENTRY=0x5306; 
my $CDROM_MSF=0x02;

sysopen (CD,$device, O_RDONLY | O_NONBLOCK);
ioctl(CD, $CDROMREADTOCHDR, $tochdr);