#!/usr/bin/perl -wdo { # Use integer math inside block only. no integer; for ($i = 0; $i < 10; $i++) { print "$i\n"; }}