Select Code to Download

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

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