require Dynaloader;
my $orig= \&DynaLoader::bootstrap;
*DynaLoader::bootstrap= sub {
    ...
};