Select Code to Download

my $sth = $dbh->prepare('
   SELECT characters.first, characters.last
...
while (my $row = $sth->fetchrow_hashref) {
   print "$row->{first} $row->{last}\n";
}

use MyDBI::people;

my ($person)   = MyDBI::people->search(first=>'John', last=>'Smith');
my @characters = $person->characters;