# ./foo.pl:
use lib './perl5lib';
use ifdef qw/DEBUGGING/;
use Bar;

=begin DEBUGGING
die "limbo";
=cut

die "outer death";
__END__