#! perl -w   

#will increment the file numbers by 1
 chdir("z:/dir/dir2") || die "could not change directories";
#$offset = $ARGV[0];
$offset = 1;


@filenames = <*.*.jpg>;
foreach my $filename (@filenames) {
	rename( $filename, 'TMP'.$filename);
}
foreach my $filename (@filenames) {
	my($basename, $frame, $ext) = $filename =~ /(.*)\.(-?\d+)\.(.*)/;
	my $newframe = $frame+$offset;
	my $newfilename = $basename . '.'
				. sprintf("%02d", $newframe) . '.' . $ext;
	rename( 'TMP'.$filename, $newfilename);
}