匿メール機能にログ機能を追加したい

現在、c-boardというCGIを改造しています。
匿メール機能を悪用されないように
匿メール送信ログをとりたいと思い、書き換えを行っているのですが
どうもうまく記録されません。
もしお分かりになる方がおりましたらご教授ください。

cmd/hml.plの
#── ジャンプ
&BASE::location("$CNF::place{'this'}{'url'}?id=$::FORM{'id'}");
}
の下に
@mailnaiyou=($name, $email, $subject, $body, $host, $agent, $eznumber, $sbnumber, $imobilenumber, $imodeid);
open (OUT,">> /data/maillog.txt");
print OUT @mailnaiyou;
close (OUT);
を追加してdataフォルダ内に
maillog.txtを設置してみました。

No.1 ベストアンサー 回答者： aigaion 回答日時： 2008/07/09 20:07

>どうもうまく記録されません。

具体的にどうなるのか欲しいところですね。

推測になりますが、それだとセパレータ無しで表示されるのでは？
$name = "hoge";
$email = "[e-mail]";
[e-mail]
みたいな感じになってしまうというのがうまく記録されないってことですかね？

foreach $tmp (@mailnaiyou){ print OUT $tmp . "<>";}
print OUT "\n";

とでもかくか

print OUT "$name<>$email<>$subject<>$body<>$host<>$agent<>$eznumber<>$sbnumber<>$imobilenumber<>$imodeid\n";

とかで行けませんか？