my $old = \&DBI::connect;
sub DBI::connect {
   print("@_\n");
   goto &$old;
}