if ($#ARGV != 2){die "usage $0 filenamein filenameout\n";}