Could try adding

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

example

C:\>perl -e"BEGIN{unshift @INC, sub{warn join q, ! ,,  @_, caller;}; }
+ use Fjord; use CGI;"
CODE(0x225d98) ! Fjord.pm ! main ! -e ! 1 at -e line 1.
CODE(0x225d98) ! CGI.pm ! main ! -e ! 1 at -e line 1.
CODE(0x225d98) ! Carp.pm ! CGI ! C:/Perl/lib/CGI.pm ! 3 at -e line 1.
CODE(0x225d98) ! Exporter.pm ! Carp ! C:/Perl/lib/Carp.pm ! 193 at -e 
+line 1.
CODE(0x225d98) ! CGI/Util.pm ! CGI ! C:/Perl/lib/CGI.pm ! 27 at -e lin
+e 1.
CODE(0x225d98) ! strict.pm ! CGI::Util ! C:/Perl/lib/CGI/Util.pm ! 3 a
+t -e line 1.
CODE(0x225d98) ! vars.pm ! CGI::Util ! C:/Perl/lib/CGI/Util.pm ! 4 at 
+-e line 1.
CODE(0x225d98) ! warnings/register.pm ! vars ! C:/Perl/lib/vars.pm ! 7
+ at -e line 1.
CODE(0x225d98) ! warnings.pm ! warnings::register ! C:/Perl/lib/warnin
+gs/register.pm ! 24 at -e line 1.
CODE(0x225d98) ! constant.pm ! CGI ! C:/Perl/lib/CGI.pm ! 33 at -e lin
+e 1.
CODE(0x225d98) ! overload.pm ! Fh ! C:/Perl/lib/CGI.pm ! 3717 at -e li
+ne 1.

C:\>
[download]