Select Code to Download

use WIN32::OLE::Const 'Microsoft Word';

#####################
#
...
my $dir = 'C:\sumith\project\test_data\input\word\small';

find(\&parse_office_doc, $dir);

#####################
#
...
}

1;

#####################
#
...
}

1;