$count = 0;
while (++$count < 10) {
    print "count is now $count\n";
}

##</code><code>##

For ($count=1;  $count<10;  ++$count) {
    print "count is now $count\n";
}