#!/usr/bin/perl -w

do {
    # Use integer math inside block only.
    no integer;
    for ($i = 0; $i < 10; $i++) {
        print "$i\n";
    }
}