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

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