"Thank You Form</title</head><body> Thanks endHtml if ($ENV{'REQUEST_METHOD'} eq 'POST'){ open (FL, 'feedback.cgi','+>>') || die ("Hello"); read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); print FL "$buffer"; print "$ENV{CONTENT

!/usr/bin/perl #looks like you forgot three lines use strict; use warnings; use CGI; # Though not used below, this could make your work easier print <"Thank You Form</title</head><body> Thanks endHtml if ($ENV{'REQUEST_METHOD'} eq 'POST'){ open (FL, 'feedback.cgi','+>>') || die ("Hello"); read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); print FL "$buffer"; print "$ENV{CONTENT_LENGTH}"; } print "</body></html>";