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