#!perl

# Steve Lamb, Perl CGI example

use CGI qw(:standard);
use strict;

print header;
print "<b>Hello, World!</b><br>";

(my $sec, my $min, my $hour, my $mday, my $mon, my $year_off, my $wday, my $yday, my $isdst)=localtime;
print "Time: $hour:$min:$sec<br><br>";

print "<table width='100%' align='TOP' border=2 cellspacing='1' cellpadding='1'>";

for ($a=0; $a<10; $a++) {
print "<TR>";
print "<TD ALIGN='LEFT' VALIGN='TOP' BGCOLOR='Lavender'>";
print "<FONT FACE='Arial' SIZE='-1' COLOR=red>";
print "<align='right' class='smalloffwhite'>Column 1 &nbsp;";
print "</FONT>";
print "</TD>";
print "<TD ALIGN='LEFT' VALIGN='TOP' BGCOLOR='Lavender'>";
print "<FONT FACE='Arial' SIZE='-1' COLOR=blue>";
print "<align='right' class='smalloffwhite'>Column 2 &nbsp;";
print "</FONT>";
print "</TD>";
print "<TD ALIGN='LEFT' VALIGN='TOP' BGCOLOR='Lavender'>";
print "<FONT FACE='Arial' SIZE='-1' COLOR=green>";
print "<align='right' class='smalloffwhite'>Column 3 &nbsp;";
print "</FONT>";
print "</TD>";
print "<TD ALIGN='LEFT' VALIGN='TOP' BGCOLOR='Lavender'>";
print "<FONT FACE='Arial' SIZE='-1' COLOR=orange>";
print "<align='right' class='smalloffwhite'>Column 4 &nbsp;";
print "</FONT>";
print "</TD></TR><br>";
}
print "</table>";