Select Code to Download

my @SList = qw(Name Latitude Longitude);
my $FileA = "Mammal.txt";
open my $Mammals, "<", $FileA or die "Cannot open file'$FileA'.";
...
    }
}
close $Mammals;

sub CalculateDistance($$$$)
{
...
 
 return $nD;
}

    CalculateDistance (54.988056, -1.619444, $Lat2, $Lon2);

Myotis daubentonii    52.12909504    -0.882318328
Myotis nattereri    53.90074722    -1.771685946
Myotis nattereri    54.08052026    -1.770700447
...
Eptesicus serotinus    51.40241395    0.250171498
Eptesicus serotinus    51.35533502    0.242835438
Eptesicus serotinus    51.0001581    0.351815969