package WarningsDie;
use strict;
use warnings;
use Carp;
# confess for warnings and death
BEGIN {
	$SIG{__WARN__} = sub {confess $_[0]};
	$SIG{__DIE__} = sub {confess $_[0]};
}
1;

##</code><code>##

$ENV{HARNESS_PERL_SWITCHES} = "-Iblah/blah/blah -MWarningsDie";