perl -e "@dir=`dir`; print\"Hello, $dir[0]\""