Select Code to Download

#!/usr/bin/perl -w
use strict;
...
         ];
}

INIT: Starting the server
INIT: Attempting to listen on port 6789
...
PROC: Incoming traffic
PROC: We have a client, let's treat them well.
Your vendor has not defined POSIX macro F_GETFL, used at C:/Perl/site/
+lib/Net/HTTPServer.pm line 1091

######################################################################
+#########
#
...
    fcntl($socket, F_SETFL, $flags | O_NONBLOCK)
        or croak("Can't make socket nonblocking: $!\n");
}