Select Code to Download

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

#! perl -slw
use strict;
...
c:\test>junk2
1
Can't "redo" outside a loop block at c:\test\junk2.pl line 7.

#! perl -slw
use strict;
...
3
4
5

LOOP:{
    ...
    redo LOOP;
}

## 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 ); 
+}