sub dbq {

   my $self = shift;
   my $sql  = shift;

   my ( $sth );

   $sth = $self->{'_dbh'}->prepare( $sql );

   $sth->execute;

   return $sth;

}