Help for this page

Select Code to Download

Select or download this

use File::Spec 'catfile';

...
    $File::Find::prune= 1;
    return;
}