------- MyDBI.pm -------
package MyDBI;
use DBI;
@ISA = qw(DBI);

sub execute{
   print "DBI::execute() called with ".join(',', @_)."\n";
   $_[0]->SUPER::execute(@_);
}

# other methods here
------- MyDBI.pm -------