$File::Find::dir contains the current
    directory name, and $_ the current filename within
    that directory. $File::Find::name contains
    "$File::Find::dir/$_".  You are chdir()'d to
    $File::Find::dir when the function is called.
    The function may set $File::Find::prune to prune
    the tree.