local ($buffer, @pairs, $pair, $name, $value, %FORM);
    # Read in text
    $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
    if ($ENV{'REQUEST_METHOD'} eq "GET")
    {
	$buffer = $ENV{'QUERY_STRING'};
    }
    # Split information into name/value pairs
    @pairs = split(/&/, $buffer);
    foreach $pair (@pairs)
    {
	($name, $value) = split(/=/, $pair);
	$value =~ tr/+/ /;
	$value =~ s/%(..)/pack("C", hex($1))/eg;
	$FORM{$name} = $value;
    }
    $game = $FORM{game};
    $tutorial  = $FORM{tutorial};

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

##</code><code>##

if (defined($game) && $game !~ m/general|announcement|announcements|doom3mod|events|finalmap|friends|games|general|hl2mod|pc|recycle|teammod|test/)
{
		my $file = "forums/boards/".$game.".txt";
		open (my $fh, $file) or die "Can't open $file :$!";
		while (defined($line = <$fh>))
		{
				@elements = split(/\|/,$line);
				print "</var><a href=\"http://www.my-domain.com/tutorials.pl?tutorial=".$elements[0].">".$elements[1]."<a> Wrote by ".$elements[2]."<br/>";
		
	}
}