#!/usr/bin/perl

# read man ioctl_list for hex codes 
# read /usr/include/linux/cdrom.h for cd codes 
use Fcntl;

sysopen my $f, "/dev/sr0", O_RDONLY|O_NONBLOCK or die "open $?";

ioctl $f, 0x5329, 0 or die "ioctl $!";   # 0 unlocks 1 locks door 

ioctl $f, 0x5309, 0 or die "ioctl $!";  # open tray 

ioctl $f, 0x5319, 0 or die "ioctl $!"; #close tray