http://www.perlmonks.org?node_id=1172344

Lucas Rey has asked for the wisdom of the Perl Monks concerning the following question:

Dear Community, I'm programming a simple script in perl that do the following:
1) Open a socket to a specific server 2) Reads data line by line from a big file using a while loop 3) Send data using the open socket
I don't report the whole code since it works perfect and could be too long. What I need to accomplish is send an ammount of packets every seconds. For example I would like to limit (throttle) to send 100 packets per second. What I need, is understand how (and if) I can implement this kind of mechanism, or simply an idea. The actual code looks like:
Open Socket Open file containing data to send while # Read file line by line { Send data to Server }
Thank you, Lucas.