use Image::ExifTool qw(:Public); use Data::Dumper; $file='d:/60486581538__715F9238-09E5-4806-8146-0626DAFB0E36.JPG'; $ExifTool = new Image::ExifTool; #$ExifTool->Options(DateFormat => '%Y-%m-%d'); $info = $ExifTool->ImageInfo($file,'SubSecCreateDate','LensModel'); #$info = $ExifTool->ImageInfo($file); print "INFO: $info\n"; $createdate=$$info{'SubSecCreateDate'}; $lens=$$info{'LensModel'}; print "\nCreate Date: $createdate\n"; print "Lens Model: $lens\n\n"; print Dumper($info); exit; D:\>metadata.pl INFO: HASH(0x2b9f148) Create Date: 2020:03:02 13:16:55.336-05:00 Lens Model: iPhone 7 back camera 3.99mm f/1.8 $VAR1 = { 'LensModel' => 'iPhone 7 back camera 3.99mm f/1.8', 'SubSecCreateDate' => '2020:03:02 13:16:55.336-05:00' }; D:\>