Trivial improvement: stick my $top = shift || "."; before the find and change the "." to $top and it's even more useful.