Откуда "sub END" знает, что программа умерла?(Perl)

Question

Как выполнить Perl в Perl, если Perl умер?

Этот код работает нормально и печатает "RUNS":

sub END {print "RUNS\n"} 
die "TESTING"; 

Какую переменную я проверяю, чтобы увидеть, завершился ли скрипт нормально или умер?

Я знаю о% SIG, но наверняка здесь есть более простой ответ?

Answer 1

Тест $?:

END {print $? ? "DIED\n" : "RUNS\n"} 
die "TESTING";