IO::Socket::INET 모듈 을 사용 하여 TCP 통신

서버 엔 드 프로그램
 
 

#!/usr/bin/perl

use IO::Socket::INET;

my $sock = IO::Socket::INET->new(
				LocalAddr => '127.0.0.1',
				LocalPort => 8080,
				Listen => 3,
				Reuse => 1,
				Proto => 'tcp')
or die "can not create server
";

$sock_2 = $sock->accept();
while ($data = <$sock_2>) {
	print $data;
}
close $sock;

 
클 라 이언 트 엔 드 프로그램
 

#!/usr/bin/perl

use IO::Socket::INET;

my $sock = IO::Socket::INET->new(
				PeerAddr => '127.0.0.1',
				PeerPort => 8080,
				Proto => 'tcp')
or die "can not create client
";
print $sock "Why don't you call me anymore
";
$answer = <$sock>;
close $sock;