Ændring af filnavne i underdirektorier vha f.eks perl

Hej.
Jeg ønsker at køre f.eks et perl script i en mappe, perl scriptet skal så finde underdirektorier og ændre alle filnavne i direktoriet med underdirektoriet som en del af navnet. Jeg formoder at perl er det helt rigtige til dette, kan du hjælpe mig ?

eks:
c:\..  ...\direktorie1\subdirektorie\*.*

I mappen direktorie1 skal scriptet køres fra.
filerne får navnet: filnavn_subdirektorie.