for(my $x=0; $x<=100000;$x++){
      print "$x<br>";
}