programming-examples/perl/Statement/While loop and counter.pl

#!/usr/bin/perl

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