use Geo::PostalCode;

  my $gp = Geo::PostalCode->new(db_dir => ".");

  my $record = $gp->lookup_postal_code(postal_code => '07302');
  my $lat   = $record->{lat};
  my $lon   = $record->{lon};
  my $city  = $record->{city};
  my $state = $record->{state};

  my $distance = $gp->calculate_distance(postal_codes => ['07302','10004']);

  $record = $gp->lookup_city_state(city => "Jersey City",state => "NJ");
  $lat          = $record->{lat};
  $lon          = $record->{lon};
  my $postal_codes = $record->{postal_codes};

  $postal_codes = $gp->nearby_postal_codes(lat => $lat, lon => $lon,
                                                   distance => 50);
print 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~;