クライアントなテスト。

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

# こんな感じ。
# perl -MIO::Socket -e'$s=IO::Socket::INET->new("localhost:12345"); $s->send($_)while<>'

# 送信先のアドレス。
my $peer_addr = 'localhost:12345';

use IO::Socket;

my $sock = IO::Socket::INET->new(
                                 PeerAddr => $peer_addr,
                                 Proto => 'tcp',
                                 )
    or die "IO::Socket が new できんかった。 : $!";

# 入力をそのままソケットに送る。
while(<>){
    $sock->send( $_ );
}