Help for this page

Select Code to Download


  1. or download this
    flock(STDOUT, 2);    # LOCK_EX = 2 - grab lock
syswrite(STDOUT, "$message");
flock(STDOUT, 8);    # LOCK_UN = 8 - free lock
  2. or download this
    open(CHILDHANDLE);      # not sure how to do this?
*CHILDHANDLE = *STDOUT; # unique handle on parent socket
...
flock(CHILDHANDLE, 2);    # LOCK_EX = 2 - grab lock
syswrite(CHILDHANDLE, "$message");
flock(CHILDHANDLE, 8);    # LOCK_UN = 8 - free lock