In the time before HTTP::Server::Simple, I wrote Simple HTTP in under 100 lines, but I recommend HTTP::Server::Simple, especially for anything that goes beyond serving of simple files.