#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>Y A R K (buzzword bingo)</TITLE></HEAD>\n";
print "<BODY BGCOLOR=\"FFFFFF\">\n\n<CENTER>\n<BR>\n";

@bd = ( );
@wds = (
  "benefit",
  "budget",
  "capital ",
  "catalyst",
  "direct",
  "diverse",
  "dot-com",
  "e-commerce",
  "efficient",
  "engenuity",
  "enhance",
  "fortune 500",
  "foster",
  "global",
  "goal",
  "hand holding",
  "indirect",
  "innovate",
  "integrate",
  "intellectual property",
  "information-centric",
  "infrastructure",
  "international",
  "leadership",
  "leverage",
  "maintain",
  "market capitalization",
  "market driven",
  "mission critical",
  "network",
  "paradigm",
  "parallel",
  "proactive",
  "professional",
  "revenue",
  "revolutionize",
  "scalable",
  "seamless",
  "sense of urgency",
  "solution",
  "stock split",
  "storage",
  "synergy",
  "technology",
  "terrabyte",
  "time to market",
  "unique",
  "value added",
  "virtual",
  "world-class"
);

for $c (0 .. 23) {
    push @bd, splice(@wds, int(rand($#wds + 1)), 1);
}

splice(@bd, 12, 0, "FREE-SPACE");

print "<TABLE CELLPADDING=10 BORDER=1>\n";
for $_ (0..4) {
    print "<TR VALIGN=\"MIDDLE\" ALIGN=\"CENTER\">\n";
    for $c (0..4) {
        if ( $c == $_ && $_ == 2 ) {
            print "<TD BGCOLOR=\"#DDAAAA\">$bd[$c * 5 + $_]</TD>\n"; }
        elsif ( (($c + $_) % 2) == 1 ) {
            print "<TD BGCOLOR=\"#AAAADD\">$bd[$c * 5 + $_]</TD>\n"; }
        else {
            print "<TD BGCOLOR=\"#AADDAA\">$bd[$c * 5 + $_]</TD>\n"; }
    }
    print "</TR>\n";
}

print "</TABLE>\n</CENTER>\n";
print "</BODY></HTML>\n";