DNSのTTLは短めでしょうか?(長いと消してもキャッシュで残る罠)

>>224 漏れはこっちの方がいいと思われ。
my $addr = join('.', unpack('N', gethostbyname($AHOST)));
if ($addr == 0x7f000002)
{
return 0;# 焼かれているやつ、書き込みだめー
}