#!/usr/local/bin/perl

use warnings;
use strict;

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