Select Code to Download

use strict;

...

sub rad2deg { $_[0] * 57.2957795 }

print distance(60.1843160, -128.5069940, 29.46786, -98.53506, "M"), " 
+miles\n";
print distance(32.9697, -96.80322, 29.46786, -98.53506, "K"), " kilome
+ters\n";
print distance(32.9697, -96.80322, 29.46786, -98.53506, "N"), " nautic
+al miles\n";

2535.33852270174 miles
422.738930838725 kilometers
228.109395841006 nautical miles

use GIS::Distance;
my $gis = GIS::Distance->new();
...
    ->value('kilometer'), " kilometers\n";
print $gis->distance( 32.9697, -96.80322 => 29.46786, -98.53506 )
    ->value('nautical_mile'), " nautical miles\n";