use Archive::Zip;

my $InputFileReadable = 'text.docx';
my $zip = Archive::Zip->new();
$zip->read( $InputFileReadable ) == AZ_OK or die "Unable to open Office file\n";
print my $wfh = $zip->extractMember( 'word/document.xml' );

##</code><code>##

my $zip = Archive::Zip->new();
$zip->read( $InputFile ) == AZ_OK or die "Unable to open Office file\n";
my $wfh = $zip->extractMember( 'word/document.xml', "word/document.xml" );