サーバなテスト。

#! /usr/bin/env perl
use strict;
use warnings;

# こんな感じ。
# perl -MIO::Socket -e '$s=IO::Socket::INET->new(Listen=>1,LocalAddr=>"localhost:12345",Proto=>"tcp")->accept; print while<$s>'

# 受信ポート。
my $listen_addr = 'localhost:12345';

use IO::Socket;

my $listen_sock = IO::Socket::INET->new(
                                 Listen => 1,
                                 LocalAddr => $listen_addr,
                                 Proto => 'tcp',
                                 )
    or die "IO::Socket が new できんかった。 : $!";

# 1つのクライアントと切断してから、次のクライアントの相手をする。
for(;;){
    # 接続を待つ。
    my $sock = $listen_sock->accept;

    # クライアントから受信したデータをそのまま表示。
    while( <$sock> ){
        print;
    }

    $sock->close;
}