$SIG{__DIE__} = sub {
	die @_ if $^S; # don't run this handler from inside "eval"
	my $err = shift;
	chomp($err);
	print STDERR "DIE ERROR: $err\n";
	$! = 2;
};