$ perl -E'{ package Bar; use overload q{""} => sub { "Ha!" }; }
   say bless(\my $foo, "Foo");
   say bless(\my $bar, "Bar");
'
Foo=SCALAR(0x817bce8)
Ha!