Select Code to Download

#!/usr/bin/perl
{
...

my $pid = TestWebServer->new(8080)->background();
print "Use 'kill $pid' to stop server.\n";

#!/usr/bin/perl
use strict;
...
} else {
    print $resp->status_line;
}

$ ./HTTPserver.pl
Use 'kill 25807' to stop server.
...
<p>You sent: user='foo', pass='bar'</p>
</body>
</html>