# server
@results = <CMD>;
print CLIENT @results;

# client
print SOCKET $cmd;
@results = <SOCKET>;