local $SIG{ALRM} = sub { die };
eval {
    alarm(10);
    # LWP request
    alarm(0);
};