perl -e "print \"xxx\n\";"