#!/usr/local/bin/perl
####################################################################
# Generate a multiplication table
# parm: number
####################################################################
print "Content-type: text/html \n";
print "\n";
$limit = $ARGV[0];
print "
Multiplication Table
Multiplication Table size $limit
";
for ($row = 1; $row <= $limit; $row++) {
print "";
print "| $row ";
for ($number = 1; $number <= $limit; $number++) {
$value = $row * $number;
print " | $value ";
}
print " |
\n";
}
print "
";