BEGIN {
   # look in cwd first
   unshift @INC =>
        sub {
           warn "Loading $_[1]\n";
           return undef;
        };
}