print $lclient "$lpeer -> Welcome\n\r" or die "Send failed because: $!";