#! /usr/local/bin/perl -w

use strict;
use CGI qw(:standard);

my $q=CGI->new();

open(FH,"+>>message.txt") || die("Cannot Open Data File.. Error");
seek(FH, 0,0);
my $data = <FH>;

print "Content-type:text/html\n\n";
print $q->start_html("My Message Board");
print "<h2>My Message Board</h2><br><hr>";
print $data;
print "<p><hr><br>Post:<br>";
print "<center><form action=\"hw5.pl\" method=\"POST\">";
print $q->textarea(-rows=>6, -columns=>75, -name=>'text');
print "<br>";
print $q->submit(-value=>'Submit When Completed', -name=>'submit');
print "</form></center>";
print $q->end_html();

my $value=$q->param('text');
$value =~ s/\+/ /;
$value =~ s/\r//g;
$value =~ s/\n/ /g;
print FH "$value";

close(FH);