Select Code to Download

while ($dy < 32) {
    $table_info .= $q->Tr({
...
    );
    $dy++;
}

print OUTPUT $q->table({-cellpadding => 3},
    $q->Tr({-align => 'left'}, [
...
        } 0 .. 31
    ]),
);