Minor nit, these three lines should end in "Can't unlock..." :

      flock( CSV, LOCK_UN ) or warn "Can't lock CSV";
      flock( LOG, LOCK_UN ) or warn "Can't lock LOG";
      flock( QWK, LOCK_UN ) or warn "Can't lock QWK";
[download]