Select Code to Download

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