if ($#ARGV != 4) {
 print "usage: run batch file 'run' not this one\n";
 exit;
}

my $wordfile = $ARGV[0];
my $textfile=$ARGV[3];
my $OutPutFile=$ARGV[4];