- #!/usr/bin/perl
- use warnings;
- use IO::Socket;
- my $servsock = IO::Socket::INET->new( Listen => 5,LocalPort => 5000);
- sub reap {
- wait();
- $SIG{CHLD} = \&reap;
- } # catch and handle children dying
- $SIG{CHLD} = \&reap;
- while($client = $servsock->accept()) {
- if ($pid = fork()) {
- close $servsock;
- } else {
- close $client; #let the child deal with the client socket
- }
- }
来源: http://www.phpxs.com/code/1006385/