1--- test.pl.orig	2017-02-22 02:33:36 UTC
2+++ test.pl
3@@ -10,7 +10,7 @@ for(0..100) {
4   my($SOCKET) = new IO::Socket::INET( Proto   => "tcp",
5                                       PeerAddr=> "127.0.0.1:80");
6   if (! defined $SOCKET) { die $!; }
7-  print $SOCKET "GET /?$_ HTTP/1.0\n\n";
8+  print $SOCKET "GET /?$_ HTTP/1.0\r\n\r\n";
9   $response = <$SOCKET>;
10   print $response;
11   close($SOCKET);
12