#!/usr/bin/perl

use Image::ExifTool 'ImageInfo';
use File::Find;

my $image = shift;

my $info = ImageInfo($image);
foreach (keys(%{$info})) {
	print "$_:".${$info}{$_}.";\n";
}