package SiteManager;
    use base qw/CGI::Application/;

    use EventManager;
    use EmailManager;

    sub setup {
        $self = shift;
        $self->run_modes(
            'events'    => 'events',
            'email'     => 'email
        );
    }

    sub events {
        $self = shift;

        # Initialize a params hash or grab it from a config file and then...
        $events = new EventManager($params);
        $events->run();
    }

    sub email {
        $self = shift;

        # Initialize a params hash or grab it from a config file and then...
        $email = new EmailManager($params);
        $email->run();
    }