##

#!e:\perl\perl.exe
use CGI;
use warnings;
use Tie::File;
use List::Util qw(shuffle);

$query = CGI::new();
$Spread = $query->param("Spread");
$i=0;

@place2 = qw(0 1_1 1_2 1_3 1_4 1_5 1_6 2_1 2_2 2_3 2_4 2_5 2_6 3_1 3_2 3_3 3_4 3_5 3_6 4_1 4_2 4_3 4_4 4_5 4_6);

open(FILE,"< tiles.txt") or die "error opening tiles.txt  $!";
tie @text, 'Tie::File', 'tiles.txt' or die $!;
@text = shuffle(@text);
while () {
  ($File[$i++], $Name[$i++], $Keywords[$i++]) = split(/:/;
 chomp ($Keywords[$i]);
}
close(FILE);

print "content-type:text/html\n\n";
print "\n\n";
print "\n\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "Test Layout\n";
print "
\n";
print "\n";
for ($z=1; $z<=24; $z++) {
print "\n";
print "\n";
print "\n";
}

print "\n";
print "\n";
print "\n";