Select Code to Download

#!/usr/bin/perl

...
                 print_tree($found{$sub}[$_], $tab);
                 }
        }

> Executing: C:\PROGRAM FILES\CONTEXT\ConExec.exe "c:\perl\bin\perl.ex
+e" "subtest.pl"

...
                                                f
> Execution finished.

a
   c  
...
d   
   e
g