#####################
#
# Initiating program
#
#####################

use strict;
use LTG::DocBuddy::OfficeSub;
use File::Find;

require Exporter;
use vars qw(@ISA @EXPORT);

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

find(\&parse_office_doc, $dir);