BEGIN { *CORE::GLOBAL::require = sub { CORE::require($_[0]); print $_[0], "\n"; }; }