pkg load sockets

% Server Example
s = socket();
bind(s, 50000);
a = listen(s, 0);
[client, info] = accept(s);

data = 1;
count = 1;
len = 10;
myflag = true;
while myflag  
    "Test"
    [data, count] = recv(client, len)
    if data <= 0 
        "END"
        myflag = false;
    endif
end



