I posted some sample code a while ago in Re: need some HTTP::Server::Simple::CGI example.  Hopefully, you can glean from it what needs to be changed.

(Sorry for the brevity, but it's 4 am over here, and me needs to go to bed now :)