Таймаут lwp

#!perl
 
use strict;
use warnings;
use LWP::UserAgent;
 
# что будем качать
my $url = 'https://www.cyberforum.ru/';
# задаём таймаут 10 секунд
my $timeout = 10; 
my $ua = LWP::UserAgent->new();
$ua->agent('Mozilla/5.0 (Windows NT 5.1; rv:24.0) Gecko/20100101 Firefox/24.0');
 
# Всё, что внутри eval не приводит к прерыванию программы
my $txt = eval {
    # Связываем сигнал ALRM с подпрограммой, генерирующую ошибку
    local $SIG{ALRM} = sub { die("Error of timeout www.cyberforum.ru\n"); };
    # запускаем таймер на $timeout секунд
    alarm($timeout);
    # запускаем код, который хотим ограничить по времени
    # это добавлено специально, чтобы был таймаут. в рабочем коде sleep убрать
    sleep(15);
    my $txt = $ua->get($url)->as_string();
    # выключаем таймер
    alarm(0);
    # возвращаем как результат последнее значение
    $txt;
};
 
# Если прошла какая нибудь ошибка
if($@) { 
    # Если не таймаут показываем ошибку
    if ($@ ne "Error of timeout www.cyberforum.ru\n") {
        print "Error $@\n";
    } else {
        # Если таймаут
        print "Timeout www.cyberforum.ru\n";
    }
} else {
    # Если ошибки не было
    print "$txt\nOk!\n";
}