daniel@kinkyboots:~/work/engoi/trunk/Engoi$ ./test_server.pl 
HTTP::Server::Simple: You can connect to your server at http://localhost:8000/
Use of uninitialized value $params in concatenation (.) or string at ./test_server.pl line 40, <DATA> line 16.
params were :
daniel@kinkyboots:~/work/engoi/trunk/Engoi$ netstat -ap|grep 8000
(Not all processes could be identified, non-owned process info
 will not be shown, you would have to be root to see it all.)
tcp        0      0 localhost:8000          localhost:39238         TIME_WAIT   -