in reply to How to umount and eject cdrom on MacOSX from Perl?
$ret = `drutil tray eject`; # if you have only one tray