sub die_sig{ # Случай вызова die в eval блоке. die @_ if $^S; # Удаляем лок. unlink("$cfg_lock_file"); } local ($SIG{__DIE__}) = \&die_sig;