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

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