16 lines
412 B
Perl
16 lines
412 B
Perl
|
#!/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
|
||
|
|
}
|
||
|
|
}
|