I'm not sure how i feel about this code. I'm all about reuse and everything and I don't think its really an issue, but you might at least want to mention HTTP::Server::Simple since you cut and paste this code directly out of it.

It is probably also worth mentioning that you don't realy need the feature line or the read only stuff since there is no reason to make the port read only. It just makes it difficult to run this code on a production machine.