うーん、やっぱり 'C*' と 'c*' の違いは関係ないですね、
しかも今は 'C*' でもいけるし、

一応

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

とかの方がいいかも、、