#! /usr/bin/perl -w # # # use CGI; print "Content-type: text/html\n\n"; $c = new CGI; $ta = $c->param('ta'); print <<EOF; <html> <body> <textarea style="width: 100%; height: 200px">$ta</textarea> $ta </body> </html> EOF