use GPS::Point; my $gps = GPS::Point->new(lat => $lat1, lon => $lon1); my $dist = $gps->distance($lat2, $lon2);