「sub END」如何知道程序已經死亡？ （Perl）

Question

在Perl中，如果Perl死了，我該如何做END子例程測試？

此代碼工作正常，並打印「流程」：

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

我檢查什麼變量看劇本正常結束還是死了？

我知道％SIG，但肯定有更簡單的答案嗎？

Answer 1

測試$?：

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