programming-examples/perl/Statement/Using do .. until statement.pl

#!/usr/bin/perl -w

use strict;

my $i = 1;

print "starting do...until\n";
do {
    print "    the value of \$i: $i\n";
    $i++;
} until ($i >= 6);