#!/usr/local/bin/perl use Socket; my ($host, $port, $sockaddr); $mesg = 'Hello world.'; $port = 5001; # ソケットの生成 $sockaddr = pack_sockaddr_in($port, INADDR_ANY); socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n"; setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1) || die "setsockopt error.\n"; bind(SOCKET, $sockaddr) || die "bind error.\n"; # ポートの監視 listen(SOCKET, SOMAXCONN) || die "listen error.\n"; while (1) { # クライアントから接続 accept(CLIENT, SOCKET); #メッセージ送信 print CLIENT "$mesg\n"; close(CLIENT); }