#!/usr/bin/perl -w
use strict;
use Wrap;
use CGI;
my $q = new CGI;
my ($tal, $ggr, $namn);

print "<form>\n";
if( $q->param("namn") eq "" )
{
	print "<p>Skriv ditt namn: <input name=namn>\n";
}
elsif( $q->param("hemlig") eq "" )
{
	print "<p>Gissa mitt tal: <input name=gissat>\n";
	$tal = int rand 100;
	$ggr = 0;
	$namn = $q->param("namn");
	print "<input type=hidden name=namn value=$namn>\n";
}
else
{
	$tal = $q->param("hemlig");
	$ggr = $q->param("ganger") + 1;
	$namn = $q->param("namn");

	if( $q->param("gissat") > $q->param("hemlig") ) 
	{ 
		print "<p>Nä. Mindre!\n"; 
		print "<p>Gissa mitt tal: <input name=gissat>\n";
	}
	elsif( $q->param("gissat") < $q->param("hemlig") )
	{ 
		print "<p>Nä. Större!\n";
		print "<p>Gissa mitt tal: <input name=gissat>\n";
	}
	else
	{
		print "<p>Rätt, $namn. Du gissade $ggr gånger.\n";
	}
	print "<input type=hidden name=namn value=$namn>\n";
}
print "<input type=hidden name=hemlig value=$tal>\n";
print "<input type=hidden name=ganger value=$ggr>\n";
print "</form>\n";