foo.pl:
use Bar;
die "outer death";

Bar.pm:
package Bar;
=begin DEBUGGING
die "inner death";
=cut