连续写入套接字后的Perl套接字编程问题

$| = 1; # 打开自动刷新模式

socket->flush(); # 手动刷新套接字缓冲区

socket->shutdown(1); # 关闭套接字的写入功能

use IO::Socket::INET;

# 创建套接字
my $socket = IO::Socket::INET->new(
    PeerAddr => '127.0.0.1',
    PeerPort => '12345',
    Proto => 'tcp',
) or die "Could not create socket: $!\n";

# 打开自动刷新模式
$| = 1;

# 连续写入套接字
for (1..10) {
    $socket->print("Message $_");
    $socket->flush(); # 手动刷新缓冲区
    sleep 1;
}

# 关闭套接字的写入功能
$socket->shutdown(1);

# 关闭套接字
$socket->close();