$SIG{'__WARN__'} = sub { die @_ } if $die_on_error;
warn "foooooo";

##</code><code>##

$SIG{'__WARN__'} = sub { die @{$_[0]} if ref $_[0] eq 'ARRAY'; warn @_; } if $die_on_error;
warn "foooooo"; # never dies
warn ["foooooo"]; # sometimes dies