use strict;
use warnings;

use overload bool => sub{
    my $self = shift;
    $self->{name};
};
use overload "==" => sub{
    my $lval = shift;
    my $rval = shift;
    print "Links: $lval, Rechts: $rval\n";
};

my $m = bless{name => 'Erwin'};

$m == "Franze";