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

##</code><code>##

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