my $file = '';
my $File_Info= '';
use Image::ExifTool 'ImageInfo';
my $exifTool = new Image::ExifTool;
$exifTool->Options(Binary => 1, Composite => 1, DateFormat => '%Y:%m:%d %H:%M:%S', Unknown => 2, Verbose => 0);
# Get file info
my $info = $exifTool->ImageInfo($file);
$File_Info .= "$_ => $$info{$_}<br>\n" foreach (sort keys %$info);
print $File_Info;