my @output = qx(/usr/bin/eject -n);

##</code><code>##

perl -MO=Deparse <scriptname>.