<div dir="ltr">I have a simple device that I need to send few lines of data in TCP protocol.<br>The device should respond on each line sent.<br><br>I am using the following code:<br><br>#!/usr/bin/perl<br>use IO::Socket::INET;<br>

<br>my ($socket,$client_socket);<br><br>$socket = new IO::Socket::INET (<br>PeerHost =&gt; &#39;192.168.0.20&#39;,<br>PeerPort =&gt; &#39;5086&#39;,<br>Proto =&gt; &#39;tcp&#39;,<br>) or die &quot;ERROR in Socket Creation : $!\n&quot;;<br>

<br><br>$socket-&gt;send(&quot;a\n&quot;);<br>$socket-&gt;recv($data, 128);<br>print &quot;Data 1: $data\n&quot;;<br><br>$socket-&gt;send(&quot;111000\n&quot;);<br>$socket-&gt;recv($data, 128);<br><br>It seems that the device gets the first line but not the second line.<br>

Does anyone have an idea what am I doing wrong?<br><br>-- <br>Ori Idan<br><br></div>