|
#!/usr/bin/perl
use warnings;
use CGI::Pretty;
use strict;
print "Content-type: text/html\n\n";
my $cgi=new CGI;
print $cgi->table({-border=>1,-cellspacing=>3,-cellpadding=>3},
$cgi->Tr({-align=>'center',-valign=>'top'}, [
$cgi->th(["Column1","Column2","Column3"]),]),
$cgi->Tr({-align=>'center',-valign=>'middle'}, [
$cgi->td(["Red","Blue","Yellow"]),
$cgi->td(["Cyan","Orange","Magenta"]),
$cgi->td({-colspan=>3},["A wide row"]),]),
$cgi->caption("An example table")
);
|