use strict; use CGI; my $cgi=new CGI; sub doform { my $text=$cgi->param("text"); print $cgi->header; print ""; print "Accumilating data: $text

"; print "

"; print ""; print ""; print "\n"; } $cgi->param("text",$cgi->param("text").$cgi->param("newtext")) if defined $cgi->param("newtext"); doform;