皆さん色々勉強させてもらい助かりました。
>>508
助言を見まして検索したところ
&jcode'convert(*subject, "jis");
$mailhead = "To: $mailto\n";
# if ($FORM{'EMAIL'} ne "(unknown)") {　　　　　　　
# $mailhead .= "Cc: $FORM{'EMAIL'}\n";　　　
# }　　　

こうすれば問題ないですか？
なんとなくまずいのはわかるのですが
良ければ詳しく教えていただけますか？