$SIG{__DIE__} = sub { cluck shift  ;-0  } or 8-P
;