use strict;
use warnings;
use feature  'say';

use Image::ExifTool qw(:Public);

my $exifTool = new Image::ExifTool;
my $tag = 'CreateDate';
say "Description of tag $tag:  ", $exifTool->GetDescription($tag);

# return meta information for 1 tag only (procedural)
my $file = 'CIMG0052.JPG';
my $info = ImageInfo($file, $tag);
say "tag->info:  $tag => $$info{$tag}";   # 2013:08:19 11:04:35