Kleines Missverständnis :)
$dir kann bleiben, aber statt File::Find::Rule::dir muss es File::Find::Rule::directory heißen.