[perl #121104] avoid using a less sane find(1)