use Test::More *;

my $i = 3;
my $n = 0;

while ($i-- > 0) {
    $n++;
}

is($n, 3);

# syntax check.
while (false) { }

# last
{
    my $n = 10;
    while ($n-- > 0) {
        last if $n == 5;
    }
    is($n, 5);
}

done_testing();