Help for this page

Select Code to Download

Select or download this

$ perl -E'while (()) { say("foo"); last }'

...

$ perl -E'while () { say("foo"); last }'
foo