Select Code to Download

sub recurse {
    my ($depth) = @_;
    print +("   .") x $depth . "current depth:$depth\n" ;
...
}

recurse(-1);