ENDブロックとシグナル

Perl で END ブロックを使うと実行終了時の処理を記述できるが， 少し注意しなければいけないことがあって， 実はトラップされないシグナルによるスクリプト終了時には ENDブロックは適用されない．

それは困るなぁ，って場合は以下のようにする．

use sigtrap qw(die normal-signals);
...
END { at_end_func(); }