Select Code to Download

-----
# ./client.pl
...
command> uname
Linux
-----

sub listen() {
$local = IO::Socket::INET->new(Listen=>1,
...
                        print "command> ";
                }
}