perl -e "while (<*>){print $_.\"\n\";}"