$SIG{__WARN__} = sub{
	die "Warnung: @_";
};