Help for this page
perl -e "eval 'no strict;' while (0==0);"
perl -e "eval {no strict;} while (0==0);"