if ($obj1->compare($obj2)) {
  # ...
}

##</code><code>##

use overload '==' => \&compare;

##</code><code>##

if ($obj1 == $obj2) {
  # ...
}