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

If you really want to get crazy, I suppose you could write a CGI script that allows people to eject your CDRom via a webpage. ...don't know why you would want to do that though. As for you being able to eject the cdrom's of people visiting your website, thankfully that can't be done with CGI via plain Perl. You may want to visit the Visual Basic folks for that. ;) (just kidding).

Anyway, have a look at SDL::Cdrom.

qx|/usr/bin/eject /dev/cdrom|;
[download]

When Aldo "dada" Calpini uploaded Win32::API to CPAN he included some samples. One of those samples is ejectcd.pl and it looks like this:

#perl -w
use strict;

use Win32::API;

my $mciSendString = new Win32::API(
    "winmm",
    "mciSendString",
    ['P', 'P', 'N', 'N'], 'N'
)
or die "Can't import the mciSendString API:\n$!";

doMM("close cdaudio");
doMM("open cdaudio shareable");
doMM("set cdaudio door open");
doMM("close cdaudio");

sub doMM {
    my($cmd) = @_;
    my $ret = "\0" x 1025;
    my $rc = $mciSendString->Call($cmd, $ret, 1024, 0);
    if($rc == 0) {
        $ret =~ s/\0*$//;
        return $ret;
    } else {
        return "error '$cmd': $rc";
    }
}
[download]