In the interest of readable code, I would much prefer:

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

my $start = ctime() ;

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

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