Помогите написать скрипт для массового переименования (не важно на чем).

Есть несколько десятков папок типа 123, 124, 125 ... в каждой из которых несколько десятков изображений 01.png, 02.png, ... , 30.png. Надо к изображениям в каждой папке добавить в начало имени еще и номер папки (т.е. чтобы в папке 123 стало 123_01.png, 123_02.png, ... , 123_30.png и т.д.).

Вроде скрипт фигня, но у меня что-то не выходит.