9 lines
163 B
Perl
9 lines
163 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
open CDROM, '/dev/cdrom' or die "$!";
|
||
|
|
ioctl CDROM, 0x5309, 1; # the ioctl number for CDROMEJECT
|
||
|
|
close CDROM;
|