While writing the tests for WWW::Mechanize::Shell, I wrote me Test::HTTP::LocalServer, which spawns a local (single-threaded) HTTP server which logs and replies in a very predetermined manner when I request special URLs.