Select Code to Download

$ perl -le'for (1..2) { { print; last; } cleanup; }'
1
2

$ perl -Mstrict -e'for (@ARGV) { my $x; } continue { cleanup($x) }'
Global symbol "$x" requires explicit package name at -e line 1.
-e had compilation errors.