Select Code to Download

#!/usr/local/bin/perl
for(my $i=1; $i<=2; $i++) {
...
sub test2 {
 print 'test2';
}