perl -e "eval  {no strict;} while (0==0);"