Help for this page
#!/usr/local/bin/perl -l use warnings ; ... until ($one == 100000) { print $one++ ; }