For the daring; change your output record separator. This allows you to automatically send a "\n" after every print statement. In fact, this is done for you automatically if you use the -l flag on Perl's command line:

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

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

buckaduck