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