Select Code to Download

my $ppl_fetched = Person->record_count();

# Create a new record...
my $person = Person->new(\%some_data);
# Retrieve an existing object...
my $other_person = Person->find_by_id($person_id);

my $person = Person->find_by_id($person_id);
my $name = $person->get_name();
my $addr = $person->get_addr();