Select Code to Download

    $| = 1;
    print "Content-type: text/html\n\n";
...
    }

print "<br>Done\n";

    for $i (0 .. 137) {
        print "<br>$i => ";
...
            $data[$i][$j] = "D".$i."B".$j;
        }
    }

if ($results[$j] eq "") {....}

while (@results = $sth->fetchrow_array()) {.....}