LWP::UserAgent supports a timeout:
$ua->timeout($timeout_seconds);