could be this?

perl -e 'while(<./*>){$folder=$_;$y=0;while(<$_/*.jpg>){rename $_, $fo
+lder."/".$folder."_".$y++.".jpg"}}'
[download]