Perl로 windows에서 Client/Server 작성시 fork/thread 사용 질문드려요.

#!/bin/perl -w
require 5.002;
use strict;
use Socket;
use POSIX qw(:sys_wait_h);
use Carp;
use Sys::Hostname;
 
sub REAPER {
    1 until (-1 == waitpid(-1, WNOHANG));
    $SIG{CHLD} = \&REAPER;
}
sub logmsg { print "$0 $$: @_ at ", scalar localtime, "\n" }
 
my $port  = shift || 2345;
my $proto = getprotobyname('tcp');
my $kid;
 
socket(Server, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) or die "setsockopt: $!";
bind(Server, sockaddr_in($port, INADDR_ANY)) or die "bind: $!";
listen(Server, SOMAXCONN)                    or die "listen: $!";
 
logmsg "server started on port $port";
 
my $paddr;
$SIG{CHLD} = \&REAPER;
$| = 1;
 
while ( $paddr = accept(Client, Server)) {
	my ($port, $iaddr) = sockaddr_in($paddr);
	my $name = gethostbyaddr($iaddr, AF_INET);
	logmsg "connection from $name [", inet_ntoa($iaddr), "] at port $port";
 
	my $old_fh = select(Client);
	$| = 1;
	select($old_fh);
 
	# execute a fork, if this is the parent,
	# its work is done, go straight to continue
	next if $kid = fork;
	die "fork: $!" unless defined $kid;
 
	# child now...
	# close the server - not needed
	close Server;
 
	print Client "Hello there, $name, it\'s now ", scalar localtime, "\n";
 
	my $buf;
	while (defined($buf = <Client>)) {	
		foreach ($buf) {
			if (/^HELLO$/) {
				print Client "Hi\n";
				last;
			}
			elsif (/^NAME$/) {
				print Client hostname(), "\n";				
				last;
			}
			elsif (/^DATE$/) {
				print Client scalar(localtime), "\n";
				last;
			}
			# default case:
			print Client "DEFAULT\n";
		}
	}
	close Client;	
}

#!/bin/perl -w
require 5.002;
use strict;
use Socket;
 
my ($remote, $port, $iaddr, $paddr, $proto, $line);
my ($in, $buf, $kid);
 
$remote = shift || 'localhost';
$port   = shift || 2345;		# random port
 
if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') }
die "No port" unless $port;
 
$iaddr = inet_aton($remote) or die "no host; $remote";
$paddr = sockaddr_in($port, $iaddr);
$proto = getprotobyname('tcp');
 
socket(SOCK, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
connect(SOCK, $paddr)                      or die "connect: $!";
 
my $old_fh = select(SOCK);
$| = 1;
select($old_fh);
 
die "fork fail: $!" unless defined($kid = fork);
 
if ($kid) {
    # parent reads from STDIN, prints to socket
    while (defined($in = <STDIN>)) {
		print SOCK $in;
    }
    # kill the child process
    kill(TERM => $kid);
} else {
    # child reads from socket, prints to STDOUT
    while (defined($buf = <SOCK>)) {
		print $buf;
    }
    close SOCK;
}
 
exit;