Help for this page

Select Code to Download

Select or download this

sub print_rec {
    my $path = shift;
...
        elsif (!-d) { print "$_ \n"; }
    }
}