$EXCEPTIONS_BEING_CAUGHT
$^S

詮譯器的目前狀態。

$^S         State
---------   -------------------------------------
undef       Parsing module, eval, or main program
true (1)    Executing an eval or try block
false (0)   Otherwise

第一個狀態可能會發生在 $SIG{__DIE__} 和 $SIG{__WARN__} 處理常式中。

英文名稱 $EXCEPTIONS_BEING_CAUGHT 有點誤導，因為 undef 值並未指出是否正在捕捉例外，因為主程式編譯並未捕捉例外。

這個變數是在 Perl 5.004 中加入的。