# old
*CORE::GLOBAL::die = \&die;

# new
$SIG{__DIE__} = \&die;