package SiteManager;
    sub cgiapp_init {
        my $self = shift;
        my $params = @_;
        if ($self->param('start_event')) {
            $event = new Event();
            $this->event = \$event;
        }
    }

    package EmailManager;
    sub cgiapp_init {
        my $self = shift;
        my $params = @_;
        $this->param('start_event', 1);
        parent::cgiapp_init();
        $self->SUPER::cgiapp_init($params);

        $email = new Email();
        $this->email = \$email;
    }