ls | perl -nle 'BEGIN {$counter=0}; $old=$_;$new="image"."$counter".".jpg";
+rename($old,$new);$counter++;' 
$