perl -e'print `ls | head -n 1`'