#!/usr/bin/perl
use strict;
use warnings;
use File::Find::Rule;
use Image::ExifTool qw(:Public);

my $tool = Image::ExifTool->new();


for my $file (File::Find::Rule->file()->name( qr/\.(jpeg|jpg)$/i)->in('/')) {
    my $info = ImageInfo($file, 'DateTimeOriginal');
    my $date = $info->{DateTimeOriginal};
    next if ! $date || $date !~ /^2015/;
    print "$file\t$date\n";
}