#!/usr/bin/env perl 
use strict;
use warnings;

use Image::ExifTool 'ImageInfo';

print "#################################\n";

my $sort = "/tmp/";

chdir $sort or die "Cant chdir to $sort $!";
my @sort_list = glob "*.jpeg";

my $exifTool = Image::ExifTool->new;
my @tags = qw(DateTimeOriginal);

foreach my $file (@sort_list) {

    $exifTool->Options(Duplicates => 0, DateFormat => '%m-%d-%Y');
    my $info = $exifTool->ImageInfo($file, \@tags);

    foreach (@tags) {
        print "$file $_: $info->{$_}\t" if exists $info->{$_};
    }
    print  "\n";
}