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

my $start = ctime() ;

my $one = 1 ;

until ($one == 100001) {
    print $one++ ;
    print "\n" ;

}

my $end = ctime() ;

print "Started $start\n  Ended $end\n\n" ;

##</code><code>##

print $one++