Select Code to Download

...
sub simpleTest{
...
}
my @test;
@test = simpleTest();

sub testFunc{
     my $i = 0;
     $i++;
     testFunc();
}