perl側 #!/usr/bin/perl use strict; use warnings; use IO::Socket; use IO::Poll qw( POLLIN POLLOUT POLLHUP POLLERR ); use Data::Dumper; use HTTP::Request; use CGI; my $_timeout = 15; $SIG{ALRM} = \&timeout; alarm($_timeout); my $port = shift || 3000; my $server = IO::Socket::INET->new( LocalPort => $port, Listen => 10, Reuse => 1, ) or die $@; my $poll = IO::Poll->new(); $poll->mask( $server => POLLI