#!/usr/bin/perl 
use CGI qw/ :standard *table /;
use CGI::Carp qw(fatalsToBrowser);

my $helptext = param('helptext');
my $localtime = localtime;
#open(OUTPUT,">>/home/accounts/COURSES/phys211/public_html/help/posts.txt")
#    or die "Cannot open posts.txt $!;
open(OUTPUT,'>>/home/accounts/COURSES/phys211/public_html/help/posts.txt') or die "Cannot open junk $!";
print OUTPUT "$localtime \n$helptext \n\n--------\n\n";
close OUTPUT;

print
    header,
    start_html,
    h3('Thank You'),
    p('Your question/comment has been posted.'),
    a({-href=>'/~phys211/index.html'},'Back to PHYS 211 Homepage'),
    end_html;
