perl -e 'while (1) { if (1) { last } }'