perl -e "@dir=`dir`; print qq{hello, $dir[0]};"

##</code><code>##

hello,

##</code><code>##

perl -e "@dir=`dir`; print qq{hello, $dir[1]};"

##</code><code>##

hello,  Volume in drive C has no label