perl -wMstrict -le
"my $i = 1;  { print qq{in naked loop $i};  redo if $i++ < 3; }
"
in naked loop 1
in naked loop 2
in naked loop 3