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" );