Select Code to Download

sub getById
{
     my ($table, $column, $id) = @_;
...
     $sth->finish();
     return $result;
}

sub getCustomerById
{
     my ($id) = @_;
     return getById("customers", "cust_id", $id);
}