Select Code to Download

  ...
  my $recs = $dbh->selectall_arrayref( $sql );
...
    }
    push @people, $person;
  }

package Base;
use strict;
...
}

1;

  $person->shoeSize();