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