#!/usr/bin/perl

use CGI; 

$q = new CGI; 

print $q->header, $q->start_html; 

$message = $q->param('message'); 
$sum = $q->param('sum'); 
$user = $q->param('user'); 

  if ($message) {
    $sum = $sum + $user; 
    if ($sum >= 100) {
      $message = "You enter: " . $user . "<p> You won: " . $sum; 
    } else {
      $comp = int(rand(10)); 
      $sum += $comp; 
      if ($sum >= 100) {
        $message = "You entered: " . $user . "<p> Computer enters: " . 
                   $comp . " <p> Computer won: " . $sum; 
      } else { 
        $message = "You entered: " . $user . "<p> Computer enters: " . 
                   $comp . " <p> Game still going. <p> " .  
                   "Current sum is: " . $sum; 
      }
    }     
  } else {
    $sum = 0; 
    $message = "Welcome, the sum is: " . $sum; 
  } 

print qq{

<form>
  $message <p> 
  Please enter your number: <input type="text" name="user"> <p> 
  <input type="submit" name="action" value="Proceed"> when ready. 
  <input type="hidden" name="message" value="$message">
  <input type="hidden" name="sum" value="$sum">
</form>

};