Select Code to Download

$SIG{ALRM} = sub { die "timed out" };

...
if ($@ =~ /timed out/) {
   # do something
}

undef $useragent if $@ =~ /timed out/;