#!/usr/bin/perl
#
# Perl CGI program.
# Create an HTML table with powers of 2
# send required HTTP response header and blank line.
print "Content-type: text/html\n\n";
# send HTML document head
print " Powers of 2\n";
print "\n";
# Create a table
print "\n";
for ($i=0;$i<10;$i++) {
print "| $i | " . 2**$i . " |
\n";
}
print "
\n";
# close out the document body
print "\n";