hi monks,

Recently I started to mess around with socket programming in perl, and I've little stumped on this piece of code, which is supposed to be simple script to communicate through the socket s:
Server

 
use IO::Socket;

$sock = IO::Socket::INET->new (
                                Localhost => 'localhost',
                                LocalPort => '18080',
                                Proto => 'tcp',
                                Listen => 1,
                                
                            
                                );
die "cant do that: $!\n" unless $sock;

$new_sock = $sock->accept();
    while(<$new_sock>){
    $ex = $_;
    $response = system($ex);
    
    }
close($sock);
[download]

Client

use IO::Socket;

$sock = IO::Socket::INET->new (
                                PeerAddr => 'localhost',
                                PeerPort => '18080',
                                Proto => 'tcp',
                                        
                            
                                );

if($sock->connected){
print "Ex->";
while(chomp($in = <STDIN>)){
print $sock "$in\n";

}
}
close($sock);
[download]

Anyway now any valid command entered to client script will be executed by the server, but I'd need to then return what system() function returns, to the client script and print it. Second thing I wanted to do but couldn't achieve is reverse the relationship, i.e. client connects to the server and server executes commands on the client and gets the result. Any ideas would be appreciated...

Again thanks for any help