#single file
#!/usr/bin/perl -l

use strict qw/refs/;
use warnings FATAL => 'all';
use Text::Extract::Word;

binmode STDOUT, ':encoding(UTF-8)';

my $file = '/root/Desktop/xls/test1.doc';
my $extractor = Text::Extract::Word->new($file);
my $string = $extractor->get_text;
print "$string";

close STDOUT;