Select Code to Download

lanx@lanx-1005HA:/tmp$ cat Weird.pm 
package Weird;
...
}

1;

lanx@lanx-1005HA:/tmp$ cat t_carp.pl

...
use Weird;      # ab'use

warn "post use\n";

lanx@lanx-1005HA:/tmp$ perl -I. t_carp.pl

...
normal output in tst()...
pre use
post use