Select Code to Download

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

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) ! overload.pm ! Fh ! C:/Perl/lib/CGI.pm ! 3717 at -e li
+ne 1.

C:\>