do_until.pl

my $counter = 10;

do{
    print("$counter\n");
    $counter--;
}until($counter<1);