open(ORDERFILE, ">$outfile")
        or diehtml("Can't open order records: $!\n");