package Frooble;
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw(name));
use overload '""' => \&as_string;
sub as_string { shift->name };
1;

##</code><code>##

$froob = Frooble->new;
$froob->name("Blortz");
print "$froob\n";