Help for this page
print $lclient "$lpeer -> Welcome\n\r"; # it will never be sended!
print $lclient "$lpeer -> Welcome\n\r" or die "Send failed because: $! +";