$SIG{__WARN__} = \&DoWarn;
$SIG{__DIE__}  = \&DoDie;


sub DoWarn {
    my @params = @_;

    warn @params;
    return;
}


sub DoDie {
    my @params = @_;

    die @params;
}