Missing data when reading data over telnet in Perl

I am trying to read and write data to multiple device(more than 30) over network as part of a test. I have a Perl script which does all the read and write over telnet for a single device. I am taking that Perl script and running multiple duplicate instances of it. Now the problem is I am seeing that some data is missing when reading from the devices and this is causing t开发者_Go百科he test to be marked as failed. Also when writing data I sometime see that the data is not sent. Both of this occurs completely at random and about 30 to 100 times for every say 2000 iterations of the test, per device.

What might be causing the problem? Is it related to telnet, or would it be a network issue (company wide network?), or is it some other problem?

EDIT:

I am using the Net::Telnet module.

Thanks...

How are you flushing your data when sending the data over the sockets?
Are you using autoflush? I would then use Wireshark to look at the network to check if the data is missing when sending or not