Help for this page
Select Code to Download
Select
or
download this
do { last; } while (1);
Select
or
download this
do { ... print $_, "\n"; next; } for (1 .. 10);