#! /usr/bin/perl
use warnings ;
use strict ;
use Time::localtime ;

my $start = ctime() ;

my $one = 1 ;

until ($one == 100001) {
    print $one."\n" if not ++$one % 500;
}
my $end = ctime() ;

print "Started $start\n  Ended $end\n\n" ;
[download]