in reply to Re: Re: Zipcode Proximity script
in thread Zipcode Proximity script

instead of my $maxlatdiff = atan2(sqrt(1 - ($distcos * $distcos)), $distcos); you could do 
use Math::Trig;
my $maxlatdiff = acos($distcos);

[download]

In Section Seekers of Perl Wisdom