$SIG{'__DIE__'} = \&my_die_handler;