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