Good answer, but there's no reason to do a string eval. Get some efficiency and compile time checking (and save some backslashes) with a block eval:

eval { finddepth(\&wanted, $base) };
[download]