simple perl tcp message queue