>perl 590735.pl type without lock: ok type with lock: The process cannot access the file because another process has locked a portion of the file.