Searching CPAN for "cdrom" turned this up:

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.