Select Code to Download

    my $obj1 = new Obj;
    my $obj2 = new Obj;
...
    if (freeze($obj1) eq freeze($obj2)) {
        ## They're the same.
    }

    package Obj;
    use Storable qw/freeze/;
    use overload '==' => \&compare;

    sub compare { return freeze($_[0]) eq freeze($_[1]) }

    if ($obj1 == $obj2) {
        # They're the same.
    }