opendir(DIR, $directoryLocation);
my @files = grep(/\.html$/,readdir(DIR));
closedir(DIR);

my @cmd = qw( start perl c:/html2wordxml.pl );

foreach my $file ( @files ) {
  system( @cmd => $file );
}