my $old_warn_handler = $SIG{__WARN__};
$SIG{__WARN__} = sub {
    die @_;
    $old_warn_handler->(@_) if $old_warn_handler;
};