用Perl写的socket脚本

1.Server端

use IO::Socket;
my $sock = new IO::Socket::INET (
LocalHost => '127.0.0.1', 
LocalPort => '8888', 
Proto => 'tcp', 
Listen => 1, 
Reuse => 1, 
); 
die "Could not create socket: $!/n" unless $sock;
my $new_sock = $sock->accept(); 
while(<$new_sock>) { 
 print $_; 
} 
close($sock);

2.client端

use IO::Socket;
my $sock = new IO::Socket::INET ( 
PeerAddr => '127.0.0.1', 
PeerPort => '8888', 
Proto => 'tcp', 
); 
die "Could not create socket: $!/n" unless $sock; 
print $sock "Hello there!/n"; 
close($sock);

更详细的内容，请参考:

http://www.perlfect.com/articles/sockets.shtml