source: trunk/examples/2-areas.cgi @ 12

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

Bootstrap

File size: 414 bytes
Line 
1#! /usr/bin/perl -w
2
3use strict;
4use CGI;
5
6my $cgi = new CGI;
7my $text1 = $cgi->param('text1');
8my $text2 = $cgi->param('text2');
9
10print "Content-type: text/html\n\n";
11
12print "<p>You submitted:</p>";
13print "<table border='1'>";
14print "<thead><tr bgcolor='#cccccc'><td width='50%'>text1</td><td width='50%'>text2</td></tr></thead>";
15print "<tbody><tr><td>$text1</td><td>$text2</td></tr></tbody>";
16print "</table>";
Note: See TracBrowser for help on using the repository browser.