perl实例代码，实现：
从客户端到服务器发送数据。
代码：
#!/bin/perl
use Socket;
socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$addr = sockaddr_in(2336, inet_aton('server.com'));
connect(SERVER, $addr) or die "Could not connect.n";
print SERVER "Hello from the client!n";
close(SERVER);