print $lclient "$lpeer -> Welcome\n\r";  # it will never be sended!