#!/usr/local/bin/perl

$count = 10;
while ($count >= 1) {
        print ("$count\n");
}
continue {
        $count -= 1;
}
