my $object = SomeClass->new(digits => '123');

$object->nondigits = "abc";
$object->digits    = "123";
$object->anyvalue  = "abc123\n";

$object->anyvalue('archaic style still works');

my $john = Person->new(name => 'John Doe', age => 19);

$john->age++;
printf "%s is now %d years old", $john->name, $john->age;