Select Code to Download

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

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