SOAP побороть ошибку 500 Connect failed

[PVE]

Есть код:
use strict;
use Time::Local;
use DBI;
use SOAP::Lite;
my $s = SOAP::Lite
-> uri('...')
-> proxy('...');
my $sen = $s -> call(SOAP::Data -> name('command') =>
SOAP::Data -> name('package') -> attr({'login' => '...', 'password' => '...'}) ->
value(\SOAP::Data -> value(
SOAP::Data -> name('pdu') -> value(\SOAP::Data -> value(
SOAP::Data -> name('header') -> value(\SOAP::Data -> value(
SOAP::Data -> name('command-id') -> value('query_sm') -> type(''),
SOAP::Data -> name('sequence-number') -> value('00000001') -> type(''))),
SOAP::Data -> name('body') -> value(\SOAP::Data -> value(
SOAP::Data -> name('message-id') -> value($mid) -> type(''),
SOAP::Data -> name('source-addr') -> value($pod) -> type('')))))))
);
Этот скрипт является функцией программы которая работает в виде демона, весящая в процессе и ждущая отправки запроса. Когда данная команда поступает, то эта функция запрашивает сервер по SOAP`у и выдает ответ. В программе стоит прерывание в 1 секунду, между запросами на сервер. Но возникает ошибка 500 Connect failed: connect: Operation timed out; Operation timed out at (т.е. удаленный сервер не отвечает) и демон останавливает работу. Как сделать так, чтобы он пропускал эту ошибку и не обращал внимание на то, что ему сервер отвечает такие гадости =))) и продолжал работать? Заранее спасибо за ответ! =)))

[RXL]

Например, использовать eval { } в качестве блока try-catch.

[PVE]

Сделал вот так -

Строка 19 - eval { $sen = $s -> call(SOAP::Data -> name('command') =>
                      SOAP::Data -> name('package') -> attr({'login' => '...', 'password' => '...'}) ->
                      value(\SOAP::Data -> value(
                      SOAP::Data -> name('pdu') -> value(\SOAP::Data -> value(
                      SOAP::Data -> name('header') -> value(\SOAP::Data -> value(
                      SOAP::Data -> name('command-id') -> value('query_sm') -> type(''),
                      SOAP::Data -> name('sequence-number') -> value('00000001') -> type(''))),
                      SOAP::Data -> name('body') -> value(\SOAP::Data -> value(
                      SOAP::Data -> name('message-id') -> value($mid) -> type(''),
                      SOAP::Data -> name('source-addr') -> value($pod) -> type('')))))))
                      );
       }; die "Error: $@\n" if $@;

Но проблема не исчезла =((( Демон как отрубался так и отрубается, показывая ошибку Error: 500 Connect failed: connect: Operation timed out; Operation timed out at ./test.pl line 19

[RXL]

PVE, eval перехватывает все ошибки. Убери die после eval и проверь еще рах.

[PVE]

RXL, спасибо, вроде работает, ну по крайней мере, он так долго еще не работал, обычно через минуту отрубался =)))) В случае чего напишу, спасибо еще раз! =)))