sub wanted {
    my $depth = $File::Find::dir =~ tr{/}{/};
    $File::Find::prune = 1
        if $depth == 1;
    print("$depth $File::Find::name\n");
}