perl -MIO::Socket -E ' $s=IO::Socket::INET->new("localhost:1200"); $s->send( "a" ); sleep 1e6 '