#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;

##</code><code>##


#!/usr/bin/perl 

BEGIN {
    $| = 1;
}

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

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

my(@data) = qw(
    test1.doc
    test2.doc
    test3.doc
    test4.doc
    test5.doc
    test6.doc
);

foreach my $data(@data) {
    my $file = Text::Extract::Word->new($data);
    my $str  = $file->get_text;
    print "$str===>File done<===\n\n";
    sleep 2;
}

close STDOUT;