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