修正が必要と思われる部分のソース open(MAIL,"| $sendc -t") || &error("メール送信に失敗しました"); print MAIL "To: $FORM{'email'}\n"; print MAIL "From: $mail\n"; print MAIL "Subject: $hp_title $reg完了\n"; print MAIL "MIME-Version: 1.0\n"; print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n"; print MAIL "Content-Transfer-Encoding: 7bit\n"; print MAIL "\n\n"; print MAIL "--------------------------------------------------------\n"; print MAIL "$mail_main\n"; print MAIL "--------------------------------------------------------\n"; close(MAIL);