Help for this page

Select Code to Download

Select or download this

find_me( $fs, $fs =~ m|/| );

...
    local $File::Find::prune = shift;
    <snip>
}