#! perl -slw
use strict;

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

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