package myDBI;

use strict;
use warnings;
use DBI;
our @ISA=("DBI");
use strict;
use warnings;

    our $AUTOLOAD;
    sub AUTOLOAD {
        warn "$AUTOLOAD\n";
         }; 

    sub connect {
        ### @_
        my $class=shift;
        my $self=DBI->connect(@_);
        bless $self;
        return $self;
         }; # connect

    sub do {
        my $self=shift;
        ### @_
        $_[0]=~ s{\bdbi\b}{zdbi}i;
        ### @_
        $self->SUPER::do(@_);
         }; # do

    1;