my $person = Person->new( fname => 'Bob', lname => 'Smith' );
$person->birthmonth('january');
$person->birthday(13);
print $person->age;  # boom!