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