Why use raw IO::Sockets? Why not Net::Server, Net::Daemon, or even HTTP::Server::Simple? I think they'd save you a lot of trouble and do all the nasty parts for you.

I'm particularly fond of Net::Server. You basically read from STDIN and write to STDOUT. It's identical to console programing in most respects.