#! perl
use strict;
use warnings;

my $n = 42;

{
    do
    {
        printf "n = %d\n", $n--;
        last if $n == 37;

    } until ($n <= 0);
}

print "Past the loop\n";

##</code><code>##

 0:22 >perl 878_Tutorial.pl
n = 42
n = 41
n = 40
n = 39
n = 38
Past the loop

 0:22 >