#!/usr/bin/perl
use CGI qw(:standard);
my $width=param(width);
my $height=param(height);
$last=($image-1);
$next=($image+1);
if ($width>30) {$width="20"}
if ($height>30) {$height="20"}
print << "QuitThat";
Content-type: text/html
$width x $height d6 Cave
QuitThat
for ($rows=1; $rows<($height+1); $rows++) {
print " ";
for ($columns=1; $columns<($width+1); $columns++) {
print '+1;
print '.gif) | ';
}
print "
";
}
print << "QuitThat";
QuitThat