sub new {
    my ($class, $params) = @_;
    $self = {server_simple_cgi => undef, ...};
    bless $self => $class;
    $params = {} unless defined $params;
    $self->{$_} = $params->{$_} for keys %$params;
    if( ! defined $self->{server_simple_cgi} ){
        $self->{server_simple_cgi} = HTTP::Server::Simple->new();
    }
    ...
}
sub run {
    my ($self, $params) = @_;
    # do something with params
    # and then run the server, it must be a valid object by now
    $self->{server_simple_cgi}->run()
}