package TestServer; use HTTP::Server::Simple::CGI qw(); use parent 'HTTP::Server::Simple::CGI'; use MyModule; sub handler { MyModule->new->go; } 1;