Until statement

#!/usr/local/bin/perl

$count = 10;
until ($count == 0) {
        print ($count, "\n");
        $count = $count - 1;
}