Select Code to Download

$person->name;         # get the name
$person->name("Ovid"); # set the name
...

$person->name($person->name . "\n");
$person->name(do { chomp(my $temp = $person->name); $temp });

$person->name;
$person->name = "Ovid";
...

$person->name .= "\n";
chomp $person->name;