programming-examples/perl/CGI/Output a HTML table.pl

13 lines
216 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
#!/usr/bin/perl -w
use strict;
print "Content-Type: text/html\n";
print "\n";
print "<table border=\"1\">";
foreach (sort keys %ENV) {
print "<tr><th>$_</th><td>$ENV{$_}</td>";
}
print "</table>";