use Geo::PostalCode;
my ($lat, $lon, $city, $state, $distance, $_record, $_db_dir, $gp, $_zip);
$_db_dir = "/etc/zip/edgetest";
$gp = Geo::PostalCode->new(db_dir => $_db_dir) or die "Could not create a New Instance!";
$_zip = param("zip");
$_record = $gp->lookup_postal_code('postal_code' => "$_zip") or die "Could not Lookup Postal Code!";
$lat = $_record->{lat};
$lon = $_record->{lon};
$city = $_record->{city};
$state = $_record->{state};
$distance = $gp->calculate_distance(postal_codes => ["$_zip",'74851']) or die "Could not get distance 3!";
$postal_codes = $gp->nearby_postal_codes(lat => $lat, lon => $lon,
distance => 50);
$_page_content .= qq~
City is ~ . $city . qq~
State is ~ . $state . qq~
Latitude is ~ . $lat . qq~
Longitude is ~ . $lon . qq~
Nearby Zips are: ~ . @$postal_codes . qq~
The Distance from $_zip to US is $distance miles
~; # $_page_content is printed at the end of
# the index.cgi file for the
# content...