> perl mocksyslogserver.pl -p 9949 -a 3
[Info] 10:24:35: Start on host 'myhost' at 10:24:35
[Info] 10:24:35:   pid=83768
[Info] 10:24:35:   port=9949
[Info] 10:24:35:   sleep_after_accept=3
[Info] 10:24:35:   sleep_after_recv=0
[Info] 10:24:50: Accepted new connection from 127.0.0.1:58683 (host=myhost)
[Info] 10:24:50: Sleeping for 3 seconds...
[Info] 10:24:53: Accepted new connection from 127.0.0.1:58684 (host=myhost)
[Info] 10:24:53: Sleeping for 3 seconds...
[Recv] 10:24:56: from 127.0.0.1:58683 read data ok (len=6, null=0)
[Recv] 10:24:56: hello1:
[Recv] 10:24:56: from 127.0.0.1:58683 read hdr eof
[Info] 10:24:57: Client 127.0.0.1:58683 closed socket
[Recv] 10:24:57: from 127.0.0.1:58684 read data ok (len=6, null=0)
[Recv] 10:24:57: hello2:
[Recv] 10:24:57: from 127.0.0.1:58684 read hdr eof
[Info] 10:24:58: Client 127.0.0.1:58684 closed socket
[Info] 10:25:39: Accepted new connection from 127.0.0.1:58695 (host=myhost)
[Info] 10:25:39: Sleeping for 3 seconds...
[Recv] 10:25:42: from 127.0.0.1:58695 read data ok (len=18, null=0)
[Recv] 10:25:42: SERVER_PLEASE_QUIT:
[Info] 10:25:42: Server quitting on your command
[Info] 10:25:42: Closing server
[Info] 10:25:42: End do_syslog_server
>