unshift @INC, sub { warn "Loading $_[1]\n"; 0; };