メールフォームを作る

以下のようなメールフォームに入力し送信すると

このようにフォームデータを表に表示させられます

下記のような記述

# フォームデータの取得
if($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
}
else {
$query = $ENV{'QUERY_STRING'};
}

# フォームデータの復元
foreach $pair (split(/&/, $query)) {
($key, $value) = split(/=/, $pair);

# 文字のデコード
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;

$FORM{$key} = $value;
}

# サーバー出力
print ＜＜END;
Content-type: text/html

＜!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"＞
＜html＞
＜head>＜title＞フォームデータ＜/title＞＜/head＞
＜body＞
＜h1＞フォームデータ＜/h1＞
＜table border="1"＞
＜tr＞＜th＞フォーム要素名＜/th＞＜th＞データ＜/th＞＜/tr＞
END

foreach $key (keys %FORM) {
print "＜tr＞＜th＞$key＜/th＞＜td＞$FORM{$key}＜/td＞＜/tr＞\n";
}

print ＜＜END;
＜/table＞
＜/body＞
＜/html＞
END

完璧に出来るようになったら、自分で記述したCGIを設置したいです！