source: trunk/examples/test.cgi @ 12

Last change on this file since 12 was 1, checked in by xinha, 15 years ago

Bootstrap

File size: 225 bytes
Line 
1#! /usr/bin/perl -w
2#
3#
4#
5
6
7
8use CGI;
9
10print "Content-type: text/html\n\n";
11$c = new CGI;
12$ta = $c->param('ta');
13
14print <<EOF;
15<html>
16<body>
17<textarea style="width: 100%; height: 200px">$ta</textarea>
18$ta
19</body>
20</html>
21EOF
Note: See TracBrowser for help on using the repository browser.