Select Code to Download

#!/usr/bin/perl -w
use strict;
...
$n++;
print $n, $/;
print $n-$p, $/;

010   # magic increment preserves leading zeros
10    # treating it as a number doesn't give leading zeros
...
# but the next increment is just numeric
1.23456789012346e+069
0     # and adding 1 to 1e69 does nothing