Can't locate object method "new" via package "Text::Extract::Word" at monks.pl line 11.

##</code><code>##

# legacy interface
use Text::Extract::Word qw(get_all_text);
my $text = get_all_text("test1.doc");