#!/usr/bin/perl -w
use diagnostics;
use strict;

require VoiceXML::Server;
my $server = VoiceXML::Server->new();
# it says not use avoidfirewall if you can help it, so I removed that part

$server->Audio("Pick a number between 1 and 99.");

my $num = int(rand(99)) + 1;

while (1) {
     my $guess = $server->Listen(grammar => "NATURAL_NUMBER_THRU_99");
     if ($guess < $num) {
         $server->Audio("No, $guess is too low.  Try again.");
     } elsif ($guess > $num) {
         $server->Audio("No, $guess is too high.  Try again.");
     } else {
         $server->Audio("That's right, my number was $num.  OK, " .
                        "let's play again.  I'm thinking of a " .
                        "different number.");
         $num = int(rand(99)) + 1;
     }
}