#!usr/local/bin/perl 
# # Renames all files.htm in current directory to files.html 
# 
$empty = 1; 
foreach $file (<*.JPG>) { 
	$empty = 0;
	$file2 = $file;
	 $file2 =~ s&\.JPG$&\.jpg&; 
	if (rename($file, $file2)) { print "Renamed $file to $file2\n"; } 
		else { warn "Could not rename $file\n"; }
}
print "No .JPG files found in current directory\n" if ($empty);