die "Usage: run batch file 'run' not this one\n"
  unless @ARGV==3;

my ($wordfile, $textfile, $outfile)=@ARGV;