sub find_person {
   my $record = new Record();
   my $person = $record->get_person();
   return $person;
}

my $p = find_person();

my $name = $p->name();