Select Code to Download

use constant MAX_ITEMS_PER_COLUMN => 25;
my @list = (1..50);
...
}
print "</tr></table>\n";