Re: Implementing the counterpart of BEGIN

[Crian]

You are looking for perldoc sigtrap I suppose.

[punkish]

use sigtrap 'handler', \&my_handler, 'normal-signals';

sub my_handler {
    open(STDERR, ">>test.err") or die "invisible error";
    warn "die-ing at " . localtime() . " because of: $!\n";
}

does the job. Many thanks for your quick help.