--- 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);