Q:\>perl -e "my%l;BEGIN{unshift@INC,sub{my($s,$m)=@_;return if $l{$m};local $l{$ m}=$m;warn localtime().qq[ $m loading\n];require $m;warn localtime().qq[ $m done .\n];}}" -e "use strict; use warnings;use LWP::UserAgent;"