perl one-liner

perl -e 'while(<*.png>){$n=sprintf("%02d",++$i,$_);rename($_,$n."frumpus\.png")}'

append an ascending number to all the files in a directory: ie "27frumpus.png"