21 lines
225 B
Perl
Executable file
21 lines
225 B
Perl
Executable file
#! /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
|