#!/usr/bin/perl use lib '../lib'; use strict; use warnings; use Continuity; use Continuity::Adapt::FCGI; my $server = new Continuity( adapter => 'FCGI', ); $server->loop; sub getNum { my $request = shift; $request->print( qq{ Enter Guess: }); $request = $request->next; my $num = $request->param('num'); return $num; } sub main { my $request = shift; my $guess; my $number = int(rand(100)) + 1; my $tries = 0; my $out = qq{ The Guessing Game
Hi! I'm thinking of a number from 1 to 100... can you guess it?
}; do { $tries++; $request->print($out); $guess = getNum($request); $out .= "It is smaller than $guess.
\n" if $guess > $number; $out .= "It is bigger than $guess.
\n" if $guess < $number; } until ($guess == $number); $request->print("You got it! My number was in fact $number.
\n"); $request->print("It took you $tries tries.
\n"); } 1;