my $addr = join('.', unpack('C*', gethostbyname($AHOST)));
if ($addr eq '127.0.0.2')
{
return 0;# 焼かれているやつ、書き込みだめー
}

これでいいかしら? > サザン★さん