Select Code to Download

use strict;
use XML::Simple;
...
  
  # 8-6-2003.  sub guess can be completely replaced with
  # the 'sub guess' found in the following node

  sub guess {
    my $self = shift;
...
}until($g->chances<=0);
print "Sorry, the monk was: " . $g->secret . "\n"