use warnings;
use strict;

use Text::SpellChecker;
my $checker = Text::SpellChecker->new( text => "Foor" );
my $word = $checker->next_word;