forked from extern/egroupware
17 lines
414 B
Plaintext
17 lines
414 B
Plaintext
|
#! /usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use CGI;
|
||
|
|
|
||
|
|
my $cgi = new CGI;
|
||
|
|
my $text1 = $cgi->param('text1');
|
||
|
|
my $text2 = $cgi->param('text2');
|
||
|
|
|
||
|
|
print "Content-type: text/html\n\n";
|
||
|
|
|
||
|
|
print "<p>You submitted:</p>";
|
||
|
|
print "<table border='1'>";
|
||
|
|
print "<thead><tr bgcolor='#cccccc'><td width='50%'>text1</td><td width='50%'>text2</td></tr></thead>";
|
||
|
|
print "<tbody><tr><td>$text1</td><td>$text2</td></tr></tbody>";
|
||
|
|
print "</table>";
|