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

--- using Weird.pm
cluck tst entered at Weird.pm line 6
	Weird::tst() called at Weird.pm line 13
	Weird::tst2() called at Weird.pm line 17     <--- AHA !!!
	require Weird.pm called at t_carp.pl line 4
	main::BEGIN() called at Weird.pm line 0
	eval {...} called at Weird.pm line 0

normal output in tst()...

--- importing from Weird.pm
cluck tst entered at Weird.pm line 6
	Weird::tst() called at Weird.pm line 13
	Weird::tst2() called at Weird.pm line 22     <--- AHA !!!
	Weird::import('Weird') called at t_carp.pl line 4
	main::BEGIN() called at t_carp.pl line 4
	eval {...} called at t_carp.pl line 4

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