use 5.010;
use strict;
use warnings;
use Image::ExifTool ':Public';
my $filename = "MyImage.jpeg";
my $metadata = ImageInfo $filename;
say "Latitude: ", $metadata->{GPSLatitude};
say "Longitude: ", $metadata->{GPSLongitude};
say "Altitude: ", $metadata->{GPSAltitude};
say "DateTime: ", $metadata->{GPSDateTime};
Works for my phone; different phones may set different EXIF keys, so you may need to experiment a little.
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'