$SIG{__DIE__}  = sub {die  log_error(shift) };#changed $_->shift
$SIG{__WARN__} = sub {warn log_error(shift) };