#!/usr/local/bin/perl

use Socket;

my ($host, $port, $ip, $sockaddr, $buf);

$host = 'localhost';
$port = 5001;

# ソケットの生成
$ip = inet_aton($host) || die "host($host) not found.\n";
$sockaddr = pack_sockaddr_in($port, $ip);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n";

# ソケットの接続
connect(SOCKET, $sockaddr) || die "connect $host $port error.\n";

# 応答を受信
read(SOCKET, $buf, 256);
print "$buf\n";

# 終了処理
close(SOCKET);