Select Code to Download

> tperl
use Scalar::Util qw(looks_like_number);
...
08(8) looks like a number
09(9) looks like a number
10(10) looks like a number

for my $i ("00".."010") {...

0(0) looks like a number
1(1) looks like a number
...
6(6) looks like a number
7(7) looks like a number
8(8) looks like a number