local $SIG{__DIE__} = sub { print +shift, "\n" };