my $code;
eval {
	local $SIG{ALRM} = sub {die "alarm\n"};
	alarm $defcfg->{'link_check_timeout'};

	# LWP stuff
	$code= ...;

	alarm 0;
}