flock (DATAFILEIN, 8);
    if (open(DATAFILEOUT, ">$catagory.dat") ) {
        flock (DATAFILEOUT, 2);