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";

# Setting Variable Reading Hash Method
$createdate=$$info{'SubSecCreateDate'};
$lens=$$info{'LensModel'};
print "\nHASH Method\n";
print "\tCreate Date: $createdate\n";
print "\tLens Model: $lens\n\n";

# Setting Variable using ExifTool GetValue Method
$createdate2=$ExifTool->GetValue('SubSecCreateDate');
$lens2=$ExifTool->GetValue('LensModel');
print "ExifTool GetValue Method\n";
print "\tCreate Date2: $createdate2\n";
print "\tLens Model2: $lens2\n\n";

print "Dumping Variable\n\t";
print Dumper($info);
exit;

D:\>metadata.pl
INFO: HASH(0x2b91f48)

HASH Method
        Create Date: 2020:03:02 13:16:55.336-05:00
        Lens Model: iPhone 7 back camera 3.99mm f/1.8

ExifTool GetValue Method
        Create Date2: 2020:03:02 13:16:55.336-05:00
        Lens Model2: iPhone 7 back camera 3.99mm f/1.8

Dumping Variable
        $VAR1 = {
          'SubSecCreateDate' => '2020:03:02 13:16:55.336-05:00',
          'LensModel' => 'iPhone 7 back camera 3.99mm f/1.8'
        };

D:\>