{
    local $SIG{__DIE__} = sub { One(); Two(); die shift; };
    open TST, ">>$var1" or die "Can't open file: $!";
}