Select Code to Download

#!/usr/bin/perl

...
    print "> ";
    }
}

sh-2.05b$ socat readline tcp4:localhost:1025
> unknown
...
> set var1 one
> get var1
var1 is set to one

2006/01/05-10:11:06 MyEchoServer (type Net::Server::PreFork) starting!
+ pid(23443)
Binding to TCP port 1025 on host *
...
ipconfig
set value one
get value