!/usr/bin/perl
print <"Thank You Form</title</head>
<body>
<h2>Thanks</h2>
endHtml
if ($ENV{'REQUEST_METHOD'} eq 'POST'){
open (FL, 'feedback.cgi','+>>') || die ("Hello");
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
print FL "$buffer";
print "<br/>$ENV{CONTENT_LENGTH}";
}
print "</body></html>";
##</code><code>##
print FL "$buffer";