# do stuff
do {
    # the same 'do stuff' as above. 
} while cond;

##</code><code>##

#! 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.

##</code><code>##

#! perl -slw
use strict;

my $i =0;
do{{
    print ++$i;
    redo if $i < 5;
}};

__END__
c:\test>junk2
1
2
3
4
5

##</code><code>##

LOOP:{
    ...
    redo LOOP;
}

##</code><code>##

## draw the diagonals
for( my $x=0, my $y=0;     $i < $xMax; $x++, $y++ ) { draw( $x, $y ); }
for( my $x=0, my $y=$yMax; $i < $xMax; $x++, $y-- ) { draw( $x, $y ); }