open A,">>alldata.log" || die ("Cannot open file: $!");
        flock(A, LOCK_EX);
        seek(A, 0, SEEK_END) || die ("Cannot seek: $!");
        print A $logstring;
        close A