if (-d _ and /^_/) {
    $File::Find::prune = 1;
    return;
}