#!/usr/bin/perl -w use strict; use Wrap; use CGI; my $q = new CGI; my ($tal, $ggr, $namn); print "
Skriv ditt namn: \n"; } elsif( $q->param("hemlig") eq "" ) { print "
Gissa mitt tal: \n"; $tal = int rand 100; $ggr = 0; $namn = $q->param("namn"); print "\n"; } else { $tal = $q->param("hemlig"); $ggr = $q->param("ganger") + 1; $namn = $q->param("namn"); if( $q->param("gissat") > $q->param("hemlig") ) { print "
Nä. Mindre!\n"; print "
Gissa mitt tal: \n"; } elsif( $q->param("gissat") < $q->param("hemlig") ) { print "
Nä. Större!\n"; print "
Gissa mitt tal: \n"; } else { print "
Rätt, $namn. Du gissade $ggr gånger.\n"; } print "\n"; } print "\n"; print "\n"; print "