#!/usr/bin/perl -w
#
# 2007-07 http://kimbriggs.com/
# Script uses the exiv2 program http://www.exiv2.org/
# to add EXIF metadata to JPGS and rename with timestamp.
#

#Load all jpgs into an array.
@pix = `ls *.JPG`;

foreach $pix (@pix) {
	
	#Let you know it's working
	print "Processing photo ".$pix;
	
	#Use the program exiv2 to rename the file with timestamp
	system("exiv2 -r %Y_%m%d_%H%M%S $pix");

	$i = $i+1
}