use strict;
use warnings;

use overload "==" => sub{
    my $lv = shift;
    my $rv = shift;
    $lv->{name} eq $rv->{name};
};


my $m = bless{name=>"Fritz"};
my $n = bless{name=>"Fritz"};

print $m == $n;