use strict;
use warnings;

use Image::ExifTool qw{ :Public };
use Data::Dumper;

my %exif;
while ( my $file = shift )
{
    do {
	warn qq{$file does not exist\n};
	next;
    } unless -e $file;

    $exif{ $file } = ImageInfo( $file );
    delete $exif{ $file }->{ ThumbnailImage };
}

print Data::Dumper
   ->new( [ \ %exif ], [ qw{ *exif } ] )
   ->Sortkeys( 1 )
   ->Indent( 1 )
   ->Dumpxs();