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