exif-tool

use feature qw(say);
use strict;
use warnings;
use Image::ExifTool;

my $exif = Image::ExifTool->new();
my $fn = '1.jpg';
$exif->ExtractInfo($fn) or die "Could not extract meta information from '$fn'";
my $create_date = $exif->GetValue('CreateDate');
die "Could not obtain create date from '$fn'" if !defined $create_date;