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

my $one = 1 ;
until ($one == 100000) {
    print $one++ ;
}