perl -e "{ local $SIG{__WARN__} = sub { die @_;};eval {warn 'xxx'}; print 'a:'.
$@}"
__OUTPUT__
a:xxx at -e line 1.