{

package DBI::db;

   sub dbq {

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

      my ( $sth );

      $sth = $self->prepare( $sql );

      $sth->execute;

      return $sth;

   }

}