/home/httpd/html/Lesson3/until.pl.html

#!/usr/bin/perl -w
$a = 10;
until ($a <= 0) {
    print "In loop: \$a = $a\n";
    $a--;
}