home *** CD-ROM | disk | FTP | other *** search
- #! /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>";
-