#! /usr/local/bin/perl
use warnings ;
use strict ;

my $one = 1 ;
until ($one == 100000) {
    print $one++ ;
    print "\n" ;

}