#!/usr/bin/perl

use strict;
use warnings;
use Text::FromAny;

my $tFromAny = Text::FromAny->new(file => '/path/to/docx');
print my $text = $tFromAny->text, "\n";