#!/usr/local/bin/perl -w

# $Id: tcp-server-vs-udp.pl,v 1.1 2002/02/17 10:19:18 68user Exp $

use Socket;

$port = 7000;

socket(SOCKET, PF_INET, SOCK_STREAM, 0) or die "$!";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1)  || die "$!";
bind(SOCKET, pack_sockaddr_in($port, INADDR_ANY)) || die "$!";
listen(SOCKET, SOMAXCONN) || die "$!";
accept(NEWSOCK, SOCKET) || die "$!";

while (<NEWSOCK>){
    chomp;
    $recv_count++;
    print "受信データ=$_ (受信回数 $recv_count)\n";
}