ALRMシグナルでのタイムアウト処理

!/usr/bin/perl
my $whois_result;
while(!$whois_result){
　　　($whois_result) = &GET_WHOIS('ksknet.net', 'whois.nsiregistry.com:43');
}

sub GET_WHOIS{
my($domain) = shift;
my($whois_server) = shift;

use IO::Socket;
my ($socket, @result);
print "Get whois info for $domain\n";
print "Connecting to $whois_server\n";
print $scoket = IO::Socket::INET->new(PeerAddr => "$whois_server",
Timeout=>3) || die $!;
print "\tConntected\n" if($socket);

eval {
local $SIG{ALRM} = sub { die "timeout\n" };
alarm (5); #タイムアウトまでの時間

###タイムアウトまでに行う処理###
print $socket "$domain\n";
@result = <$socket>;
###タイムアウトまでに行う処理###

alarm (0);
};

alarm(0); #eval{}の外で0にするのを忘れずに。

$socket->close() || die $@;

#タイムアウト時の処理
if ($@ =~ /timeout/){
　　　print "Timeout occured while recieving data! Retrying...\n";
　　　return();
}

return($result);
}