sub select {
    my $s       = shift;
    my $sql     = shift;
    my $sth = $s->dbh->prepare( $sql ) ||    
        $s->write_log("Can't prepare select ($sql): ".$s->dbh->errstr);
    $sth->execute() ||
        $s->write_log("Can't execute select ($sql): ".$sth->errstr);
    $s->fields  = $sth->{NAME};    
    my $x = 0;
    my @ar = ();
    while ( my $hr = $sth->fetchrow_hashref() ) {
        $ar[$x++] = $hr;
    }
    $s->rows = $x;     
    $s->ar   = \@ar;   
    $sth->finish();
}