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~<br>
	City is ~ . $city . qq~<br>
	State is ~ . $state . qq~<br>
	Latitude is ~ . $lat . qq~<br>
	Longitude is ~ . $lon . qq~<br>
	<br>
	Nearby Zips are: ~ . @$postal_codes . qq~<br>
	<br>
	The Distance from $_zip to US is $distance miles<br>
	<br>~; # $_page_content is printed at the end of
               # the index.cgi file for the
               # content...