Additionally, I could use the super way of doing things...

  #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));
  }
[download]

Update: Condensed the code, just for fun

---

Kristofer Hoch

Si vos can lego is, vos es super erudio