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