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