flock(STDOUT, 2);	# LOCK_EX = 2 - grab lock
syswrite(STDOUT, "$message");
flock(STDOUT, 8);	# LOCK_UN = 8 - free lock

##</code><code>##

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