Select Code to Download

#!/usr/bin/perl
use strict;
...

$ perl 892828_c.pl
(0-1999999), (1999999-3999998), (3999998-5999997), (5999997-7999996), 
+(7999996-9999995)

#!/usr/bin/perl
use strict;
...
$ perl 892828_d.pl
Name "main::b" used only once: possible typo at 892828_d.pl line 10.
(0-1), (1-0), (0-1999999), (1999999-3999998), (3999998-5999997), (5999
+997-7999996), (7999996-9999995)