open(IN, '<c:\doclist.chr') or die "Couldn't open file, $!";
open(OUT, '>c:\doclist.txt') or die "Couldn't open file, $!";