File Perl

  1. Home
  2. Perl
  3. File
  4. CDROM operation
#!/usr/bin/perl
use warnings;
use strict;
open CDROM, '/dev/cdrom' or die "$!";
ioctl CDROM, 0x5309, 1;   # the ioctl number for CDROMEJECT
close CDROM;