#!c:/perl/bin/perl.exe
use strict;
for(my $x=0; $x<=100000;$x++){
      print "$x<br>";
}