use File::Spec 'catfile';

## later, in sub wanted...
if( -d catfile( $File::Find::dir, $_) 
    && m/\A_/)
{
    $File::Find::prune= 1;
    return;
}