opendir( DIR, 'c:\\test\\' );
@files = readdir(DIR);
closedir(DIR);
my $exifTool;

foreach $file (@files) {
	next if $file !~ /\.jpg$/i;
	print "processing file '$file'\n";
	$exifTool = new Image::ExifTool;

	my $info = $exifTool->ImageInfo($file);

	foreach $key ( keys %$info ) {	
		print "$file => $key=> $$info{$key}\n";		
	}

}
my $info = $exifTool->ImageInfo("Landscape_2.jpg");

$exifTool->SetNewValue( "Model", "0815333" );
( $success, $errStr ) = $exifTool->WriteInfo("Landscape_2.jpg");
print "SUCCESS: $success\n";
print "ERROR: $errStr\n";