#This function replaces GamesGuesswordExtend's 
  #guess method.
  sub guess {
    my $self = shift();
    my $word =  shift();
    
    chop($word);
    
    push (@{$self->{guesses}}, $word) 
      if ($self->secret eq $word);
    
    $self->SUPER::guess(substr($word,0,1));
  }