BEGIN{unshift @INC, sub{warn join q, ! ,, @_, caller;}; }