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

my $wcomments = param('wcomments');
my $localtime = localtime;
#open(OUTPUT,">>/home/accounts/facultystaff/t/tsolomon/public_html/write/cccomments.txt")
#    or die "Cannot open cccomments.txt $!;
open(OUTPUT,">>/home/accounts/facultystaff/t/tsolomon/public_html/write/cccomments.txt") or die "Cannot open cccomments.txt $!;
print OUTPUT "$localtime \n$wcomments \n\n--------\n\n";
close OUTPUT;

print
    header,
    start_html,
    h3('Thank You'),
    p('Your comment has been posted.'),
    a({-href=>'ccouncil.html'},'Back to Composition Council page'),
    end_html;
