Следующее обобщение одного из исходных ответов также восстанавливает обработчик сигнала тревоги для предыдущего обработчика и добавляет второй вызов alarm (0) в случае, если вызов в eval clock генерирует исключение, не являющееся сигналом тревоги, и мы хотим отменить сигнал тревоги. Дополнительная проверка $ @ может быть добавлена:

аюсь выполнить запрос к ненадежному серверу. Запрос неплох, но для успешного выполнения моего сценария perl не требуется 100%. Проблема в том, что сервер иногда блокируется (мы пытаемся выяснить, почему), и запрос никогда не будет успешным. ...