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