When you know the length of the expected response (such as 131), you can concat the pieces you get from sysread and check if the resulting string has reached that length.  I said "pieces" because in theory (for example, if the connection has temporarily stalled for some reason), sysread might return prematurely with less than the requested number of bytes. So, to be sure, you'd need some loop + concat:

my $len = 131;
my $resp = '';
while ( sysread $socket, $_, $len ) {
    $repsp .= $_;
    last if length($resp) >= $len;
}
[download]

Eliya , your code provide some improvements in the performance it dont take 5 minutes anymore it takes between 30sec and 2minutes , is there anyway to make this faster? Thanks!

Here is my code now

my $socket = new IO::Socket::INET (
                                  PeerAddr => '192.168.11.244',
                                  PeerPort => '6008',
                                  Proto => 'tcp',
                                 );
die "Couldn't connect: $!\n" unless $socket;

$data = pack("CccccccCcCC",02,65,63,80,81,76,86,03,100,13,10);

if ( $socket )
{
    print $socket $data ;

    my $len = 131;
    my $resp = '';
    while ( sysread $socket, $_, $len ) {
    $resp .= $_;
    last if length($resp) == $len;
    }
    print "$resp\n";
}
close($socket);
[download]

Try the unbuffered read() function instead of sysread(). Do not mix buffered and unbuffered reads! That will cause big trouble!

You should be able with wireshark to tell if the problem is in the receive buffering or in the transmit delay from the other end. I am suspecting however that there is some delay while processing these very short packets. Although the time frame seems to be incredibly long! Can you provide more timing info from wireshark? What happened when you did: $socket->flush(); after the write (in Perl lingo the "print"?

Update: I was confused.. corrected and also another suggestion posted.