#!/usr/bin/perl
$a = 100;
foreach (<*.jpg>) {
 ++$a;
 rename "s/.*/dsc0$a\.jpg/" "$_";
}
