> perl -de0

...

  DB<173> eval { local $SIG{__WARN__} = sub { die $_[0] }; warn "bla" } or print "<<<$@>>>"                            
<<<bla at (eval 197)[c:/nonBKU/strawberry-perl-5.32.1.1-64bit-portable/perl/lib/perl5db.pl:738] line 2.
>>>
  DB<174>