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