in reply to Perl System('') question

Use backticks instead of system:

my $out = `eject -n`;

(in case eject is writing to stdout, that is, otherwise redirect stderr to stdout (`eject -n 2>&1`)...)