I'm not going to spend the time on it right now but in general mt2k's approach to DBI really ought to be subclassed instead. This approach provides a DBI::mt2k->connect() method while not respecting any other normal DBI method. Doing this properly would involve providing a custom connect() method and just passing the default work back up to SUPER::. The docs on how to do this are in DBI (which specifically mentions how to subclass DBI) and perltoot which also goes over subclassing. I'll try to follow up with a sample later this week but for now I'd like to make sure that this is noted.

__SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;
[download]