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 line 1.
CODE(0x225d98) ! strict.pm ! CGI::Util ! C:/Perl/lib/CGI/Util.pm ! 3 at -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/warnings/register.pm ! 24 at -e line 1.
CODE(0x225d98) ! constant.pm ! CGI ! C:/Perl/lib/CGI.pm ! 33 at -e line 1.
CODE(0x225d98) ! overload.pm ! Fh ! C:/Perl/lib/CGI.pm ! 3717 at -e line 1.

C:\>