#!/usr/bin/perl -w

use strict;
use CGI qw(:all);
use Algorithm::Numerical::Shuffle qw(shuffle);

my @items = <DATA>;
die "Need at least 24 items" if @items < 24;
@items = shuffle @items;

print header("text/html"),
      start_html(-title=>"Slashdot Bingo!"),
      table( { -align=>"center", -border=>1, -frame=>"border", -rules=>"all" },
        Tr( {-align=>"center", -valign=>"middle", -height=>"100" },
          [
            td( { -width=>"100" },
                [ map { pop @items } (1..5) ] ),
            td( { -width=>"100" },
                [ map { pop @items } (1..5) ] ),
            td( { -width=>"100" },
                [ pop @items, pop @items, big(b("FREE")),
                  pop @items, pop @items ] ),
            td( { -width=>"100" },
                [ map { pop @items } (1..5) ] ),
            td( { -width=>"100" },
                [ map { pop @items } (1..5) ] )
          ]
        )
      ),
      end_html,
      "\n";

__DATA__
Jon Katz article
Microsoft FUD
Microsoft vs DOJ
Napster
DeCSS
Anime
Movie Review
ICANN
Frivolious Patents
Rambus
KDE vs GNOME
Linux Kernel Update
GPL
Ask Slashdot (on frontpage)
Science (on frontpage)
Apple Computers
Microsoft .NET
Book Review
BSD (on frontpage)
Console Games
AOL
IANAL
Privacy (on frontpage)
Your Rights Online (on frontpage)
Doubleclick & Friends
Star Wars
Distributed Computing