in reply to
SigAlarm or Timeout on WINNT for a Socket Connect
LWP::UserAgent supports a timeout:
$ua->timeout($timeout_seconds);
Comment on
Re: SigAlarm or Timeout on WINNT for a Socket Connect
Download
Code
In Section
Seekers of Perl Wisdom