Perhaps you can use the background() method of the HTTP::Server::Simple object, which runs the server in the background (I assume it forks) and returns the PID of the running server. When you're done testing you can send a KILL signal to that PID.

-David