RosettaCodeData/Task/Loops-While/Perl/loops-while-3.pl

my $n = 1024;
until($n == 0){
    print "$n\n";
    $n = int $n / 2;
}