Doesn't actually look to me as tho' your script is using anything from the find.pl file. Have you tried commenting that line out?

--
<http://www.dave.org.uk>

European Perl Conference - Sept 22/24 2000, ICA, London
<http://www.yapc.org/Europe/>