elsif($sessao eq "novaprofissao")
    {
        my $profissao=$Request->Form("profissao")->item();
        my $descricao=$Request->Form("descricao")->item();
        if(! length($descricao)>0)
        {
                $descricao=" ";
        }
        $conexao = core->conectar();
        my $dbh =$conexao->prepare("INSERT INTO tbl_recursoshumanos_profissoes(profissao,descricao) VALUES (?,?);");
        $dbh->execute($profissao,$descricao);
        $dbh->finish;
        $conexao->disconnect;
        my $acao="Criou profissão - $profissao";
        my $usuario=usuario->nome($Request, $Response);
        core->auditoria($usuario, $acao, $Request, $Response);
        print "salvo";
    }