#!c:/Perl/bin/perl use strict; print "Content-type: text/html\n\n"; print <<EOT1; <html> <head> </head> <body bgcolor=ffffff> <h3>Hello!!</h3> This web page was returned by a CGI script <table border> EOT1 #Dynamically generate a table, 6 rows, 4 columns #We could have read the QUERY_STRING environment variable and #obtained the dimensions from there!! my $i; my $j; for($i=0;$i<6;$i++){ print "<tr>"; for($j=0;$j<4;$j++){ print "<td>($i,$j)</td>"; } print "</tr>\n"; } print <<EOT2; </table> </ul> </body> </html> EOT2