#! /usr/bin/perl

use warnings;
use strict;

use Image::ExifTool;

sub print_exif_data($) {
    my ( $filename ) = @_;
    my $exifTool = new Image::ExifTool;
    my $exif_info = $exifTool->ImageInfo( $filename );
    #while ( my ( $tag, $value ) = each %$exif_info ) {
    #    my $description = $exifTool->GetDescription( $tag );
    #    print "EXIF: $tag ($description) => $value\n";
    #}
    foreach my $tag ( sort keys %$exif_info ) {
        my $description = $exifTool->GetDescription( $tag );
        print "$tag ($description) => $exif_info->{$tag}\n";
    }
}

foreach my $file ( @ARGV ) {
    print_exif_data $file;
}