#!/usr/bin/perl

my @cores = ("aaa", "000");

print "Content-type: text/html\n\n";

for(0..20) {
    print '<div style="float: left; margin: 1px; padding: 0px; display: table;">';
    for(0..20) {
        print '<div style="height: 15px; margin: 1px; padding: 0px; width: 15px; display: block; background-color: #', @cores[int(rand(2))], ';"></div>';
    }
    print '</div>';
}