限制套接字在Perl中每秒发送特定数量的数据包

我正在用perl编写一个简单的脚本，它执行以下操作：

打开特定服务器的套接字

使用while循环逐行读取大文件中的数据

使用开放式套接字发送数据

我不报告整个代码，因为它工作完美，可能太长。我需要完成的是每秒钟发送一次数据包。例如，我想限制每秒发送100个数据包。这是因为循环速度太快，有时服务器会出现拥塞。 我需要的是不知道如何（以及是否）实现这种机制。我不清楚如何将代码插入while循环以每秒发送“X”个数据包。实际代码如下所示：

Open Socket
Open file containing data to send
while   # Read file line by line
{
Send data to Server
}

---

谢谢你，Lucas。

你可能想检查并使用它来限制输出流量。

你可以在循环、发送、睡眠中填充一个缓冲区，但你正在使用的软件/包可能具有这种能力，就像你的回答一样。搜索文档。出于特定原因，您想每秒发送100个数据包，还是想避免拥塞？我想添加一个设置，让用户选择每秒发送多少消息。