Select Code to Download

my $count = 1;
...
# rename(OLDFILE, NEWFILE);
 rename($File::Find::dir.$1.'.jpg', $File::Find::dir.$count++.'.jpg');
}