Help for this page

Select Code to Download

Select or download this

sub traverse_dir {
    my $dir = shift;
...
    }
}
traverse_dir ".";