<%
{package usuario;
    sub login()
    {
        my($class, $Request, $Response) = @_;
        my $loginusuario=$Request->{Cookies}{IME_EXTRANET_USUARIO_LOGIN}{user_login};
        return $loginusuario;
    }
    sub nome()
    {
        my($class, $Request, $Response) = @_;
        my $nomeusuario=$Request->{Cookies}{IME_EXTRANET_USUARIO_LOGIN}{user_nome};
        return $nomeusuario;
    }
    sub id()
    {
        my($class, $Request, $Response) = @_;
        my $nomeusuario=$Request->{Cookies}{IME_EXTRANET_USUARIO_LOGIN}{user_id};
        return $nomeusuario;
    }
}
%>