programming-examples/perl/File/CDROM operation.pl

9 lines
163 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
#!/usr/bin/perl
use warnings;
use strict;
open CDROM, '/dev/cdrom' or die "$!";
ioctl CDROM, 0x5309, 1; # the ioctl number for CDROMEJECT
close CDROM;