BEGIN {
  *CORE::GLOBAL::require = sub {  printf "===== TRACE: req %-20s with ARGV=%s\n",
                                         $_[0],
                                         join(', ' ,@ARGV);
                                         CORE::require( $_[0] );
                               };

}