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

warn "pre use\n";

use Weird;      # ab'use

warn "post use\n";