use IO::Socket;
$port = 80; # 最近のWindwowsでは変なポートを使うと動作しないので注意

$listening_socket = IO::Socket::INET->new(LocalPort => $port,
Listen => SOMAXCONN,
Proto => 'tcp',
Reuse => 1,
);

if ( ! $listening_socket ){
die "listen できませんでした。 $!\n";
}
print "ポート $port を見張ります。\n";
while (1){
$new_socket = $listening_socket->accept();

$client_sockaddr = $new_socket->peername();
($client_port,$client_iaddr) = unpack_sockaddr_in($client_sockaddr);
$client_hostname = gethostbyaddr($client_iaddr, AF_INET);
$client_ip = inet_ntoa($client_iaddr);

print "接続: $client_hostname($client_ip) ポート $client_port\n";

select($new_socket); $|=1; select(STDOUT);

while (<$new_socket>){
print "入力コマンド：$_";
if ($_) {
$mes = `perl get_data2.pl`;
print $mes;
print $new_socket "$mes";
}
$new_socket->close();
}
print "接続が切れました。引き続きポート $port を見張ります。\n";
}
#【参考】http://x68000.q-e-d.net/~68user/net/module-1.html

$mes = "get_data";

print "$host:$port に接続します。\n";

$socket = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
);
if ( ! $socket ){
die "接続できませんでした。 $!\n";
}
# 文字列を送信
print "送信メッセージ: $mes\n";
print $socket "$mes\n";
$socket->flush();

# 文字列を受信
while ( <$socket> ) {
print "$_";
}

$socket->close();

#【参考】http://x68000.q-e-d.net/~68user/net/module-1.html