#!/usr/bin/perl -wT use strict; use IO::Socket; use IO::Select; my $port = 10080; my $server = undef; while (!$server and $port < 10180) { $server = IO::Socket::INET->new(LocalAddr => '127.0.0.1', LocalPort => $port, Proto => 'tcp', Listen => 2, ReuseAddr => 1); $port += 1 unless $server; } die "Could not connect: $! $@\n" unless $server; my $sockets = IO::Select->new($server); my $clients = {}; print "Status: 303 See Other\r\nLocation: http://127.0.0.1:$port/test1\r\nContent-Type: text/plain\r\n\r\nTest server started on port $port\r\n"; close STDOUT; my @pendingData = $sockets->can_read(5); foreach my $socket (@pendingData) { if ($socket == $server) { $socket = $server->accept; if ($socket) { $socket->syswrite(< XMLHttpRequest and connection refused

FAIL: Script did not run.

ENDTEST $socket->shutdown(2); last; } } } $server->shutdown(2);