push @INC, sub { print "Loading @_\n"; return () };