Blue Flower

#!/usr/bin/perl
use strict;
use Image::ExifTool;
my $exifTool = new Image::ExifTool;
my $info = $exifTool->ImageInfo('20150729.NEF');
foreach my $elm (keys %$info) {
print "$elm =>\t $$info{$elm}\n";
}
print "################\n";
print "CreateDate:\t\t$$info{CreateDate}\n";
print "SubSecCreateDate:\t$$info{SubSecCreateDate}\n";
print "FocusDistance:\t\t$$info{FocusDistance}\n";
print "FNumber:\t\t$$info{FNumber}\n";
print "ShutterSpeed:\t\t$$info{ShutterSpeed}\n";