Select Code to Download

sub do_select {
   my($dbh, $statement, $attr, @bind_values) = @_;
...
   $sth->execute(@bind_values) or return undef;
   return $sth;
}