package Foo;
use overload '""', sub {"Hello, World!"};
package main;
my $foo = bless {}, 'Foo';
{
    local $, = ' ';
    print $foo, ref($foo), $/;</p>
}