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