#! perl -slw
use strict;
my $i =0;
do{
    print ++$i;
    redo if $i < 5;
};
__END__
c:\test>junk2
1
Can't "redo" outside a loop block at c:\test\junk2.pl line 7.