Select Code to Download

for (0..9) {
    print "line1\n";
...
        do something;
    }
}

my @tt=($T_one,$Ta,$rr);
...
    print "</br>";

}