Subversion-Projekte lars-tiefland.content-management

#! /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>";