つい最近CGIを勉強し始めた者です。
よろしくお願いします。

質問は件名に書いたように「送信フォームで入力されたEmailアドレスでメールを受
信したい」のですが、なぜか違うアドレスで受信してしまうのです。
たぶんPerlの

#メールアドレスの書式をチェック
#差出人メールアドレスがなければ「不明」にする
if (!($Email =~ /.+\@.+\..+/)) { $Email = "nomail\@xxx.xxx.or.jp"; }

このあたりがおかしいと思うのですが。

ご回答のほどよろしくお願いします。