tcp echo server for perl