Select Code to Download

{
    package Person;
    use Class::Std;
...

$guy->set_name('Gump');
print "name: ", $guy->get_name, "\n";