use SDL::Cdrom;
my $cdrom = SDL::Cdrom->new(0);
$cdrom->eject();