在 Perl 中进行 Socket 编程可以通过使用其内置的模块 IO::Socket 来实现。下面是一个简单的客户端-服务器程序的完整实例，展示了如何使用 Perl 进行 Socket 编程。

服务器端程序

use strict;  
use warnings;  
use IO::Socket::INET;  
# 自动刷新输出缓冲区  
$| = 1;  
# 创建一个监听于本地8000端口的服务器socket  
my $server = IO::Socket::INET->new(  
    LocalHost => '0.0.0.0',  
    LocalPort => 8000,  
    Proto     => 'tcp',  
    Listen    => 5,  
    Reuse     => 1  
) or die "无法创建Socket服务器, $!\n";  
print "服务器已启动，在端口8000上监听\n";  
while (1) {  
    # 等待客户端连接  
    my $client_socket = $server->accept();  
    # 获取客户端地址和端口  
    my $client_address = $client_socket->peerhost();  
    my $client_port = $client_socket->peerport();  
    print "客户端 $client_address:$client_port 已连接。\n";  
    # 读取客户端发送的数据  
    my $data = "";  
    $client_socket->recv($data, 1024);  
    print "从客户端接收到的数据: $data\n";  
    # 发送响应到客户端  
    my $response = "服务器收到信息: $data";  
    $client_socket->send($response);  
    # 关闭客户端连接  
    shutdown($client_socket, 1);  
}  
$server->close();  

客户端程序

use strict;  
use warnings;  
use IO::Socket::INET;  
# 配置要连接的服务器地址和端口  
my $server_host = '127.0.0.1';  
my $server_port = 8000;  
# 创建一个客户端socket  
my $socket = IO::Socket::INET->new(  
    PeerHost => $server_host,  
    PeerPort => $server_port,  
    Proto    => 'tcp'  
) or die "无法连接到服务器 $!\n";  
print "成功连接到服务器 $server_host:$server_port\n";  
# 要发送的数据  
my $message = "Hello from Client";  
print "发送数据到服务器: $message\n";  
$socket->send($message);  
# 接收来自服务器的响应  
my $response = "";  
$socket->recv($response, 1024);  
print "来自服务器的响应: $response\n";  
# 关闭连接  
$socket->close();  

运行方法

1. 先运行服务器端脚本，它会在本地的 8000 端口监听。
2. 然后运行客户端脚本，客户端会尝试连接服务器，并发送一条消息。

注意事项

• 在实际使用中，把 LocalHost 换成实际的 IP 地址。
• 需要在同一网络或相同网络环境下测试此程序。
• 测试过程中，请确保端口 8000 未被占用。
• 防火墙可能需要配置以允许流量通过此端口。
• 生产环境中请考虑处理多线程、多进程或事件驱动的服务器实现，来应对高并发连接。可以借助 CPAN 上众多的模块如 IO::Select 或者 AnyEvent。