#!perl
use strict;
use warnings;
use Win32::File;
use Cwd;

die "[usage message explaining the commandline parameters here]\n" unless @ARGV;

for my $dir (@ARGV) {
	print "\n\n$dir directory***********************\n\n";

	my $filename_prefix = ucfirst $dir;

	my (@rename_file, %filename_seen);

	opendir(DIR, $dir) or die "unable to open directory: $!";
	for (readdir DIR) {
		next unless -f "$dir/$_";

		my $attribs;
		Win32::File::GetAttributes("$dir/$_",$attribs);
		next if $attribs & HIDDEN;

		if (/^\Q$filename_prefix\E(\d{4})/) {
			$file_seen{$_}++;
		}
		else {
			push (@rename_file, $_);
		}
	}
	closedir DIR;

	for (@rename_file) {
		my ($count, $newname);
		my ($extension) = /\.(gif|jpg|jpe|jpeg|bmp)\z/;

		do {
			$newname =
				$filename_prefix
				. sprintf("%04d", ++$count)
				. $extension
		} while exists $filename_seen{$newname};

		print "renaming $item to $newname\n";
		rename "$dir/$_", "$dir/$newname";
	}
}