hab mir grad mal File::Find::Rule angeschaut...
das ist echt klasse :)
da kann man sich das ganze File::Spec->catfile() zeugs und noch viel mehr sparen
danke für den tip :)