Recursive function in perl

Select or download this

                 Main
---------------------------------------------------------    
...
sub12         sub22         sub32       sub42
sub13         sub23         sub33       sub43
___________________-____________________________________

Select or download this

Main
sub1
sub11
sub12
sub13

Select or download this


sub2
sub21
sub22
sub23

Select or download this

sub3
sub31
sub32
sub33

Select or download this

#! /usr/bin/perl
@listofLinks=qw(Main)
...
print "@arr\n";
}

Select Code to Download