Using A Simple Object

require Person;

my $uncle = Person->new(
  name          => 'Bob Smith',
  date_of_birth => '1932-07-04',
);

print $uncle->name, "\n";

print $uncle->age,  "\n";