--- test.pl.orig 2019-05-10 05:58:17.910284000 +0900 +++ test.pl 2019-05-10 05:52:04.663130000 +0900 @@ -10,7 +10,7 @@ my($SOCKET) = new IO::Socket::INET( Proto => "tcp", PeerAddr=> "127.0.0.1:80"); if (! defined $SOCKET) { die $!; } - print $SOCKET "GET /?$_ HTTP/1.0\n\n"; + print $SOCKET "GET /?$_ HTTP/1.0\r\n\r\n"; $response = <$SOCKET>; print $response; close($SOCKET);