use Geo::ShapeFile::Point comp_includes_z => 0;

my $p1 = Geo::ShapeFile::Point->new(X => 3, Y => 5, Z => 10);
my $p2 = Geo::ShapeFile::Point->new(X => 3, Y => 5, Z => 25);

# this will return false if comp_includes_z is true,
# and return true if comp_includes_z is false
if($p1 == $p2) {
  print "these points are the same spot\n";
}