Catalyst::Authentication::Store::IMAP3pm

    use Catalyst qw(
      Authentication
      );
    __PACKAGE__->config(
      'authentication' => {
         default_realm => "imap",
         realms => {
           imap => {
             credential => {
               class          => "Password",
               password_field => "password",
               password_type  => "self_check",
             },
             store => {
               class => 'IMAP',
               host  => 'localhost',
             },
           },
         },
       },
    );
    sub login : Global {
        my ( $self, $c ) = @_;
        $c->authenticate({
                          id          => $c->req->param("login"), 
                          password    => $c->req->param("password") 
                         });
        $c->res->body("Welcome " . $c->user->username . "!");
    }