Pô, cara, tu tá imprimindo o header duas vezes. Tira esse
print "Content-type: text/html\n\n";<div><br><br><div class="gmail_quote">2012/7/2 Lucas Moraes <span dir="ltr"><<a href="mailto:lucastiagodemoraes@gmail.com" target="_blank">lucastiagodemoraes@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">O script completo:<br>
#!/usr/bin/perl -w<br>
<br>
use strict;<br>
use warnings;<br>
use CGI;<br>
use CGI::Session;<br>
<br>
print "Content-type: text/html\n\n";<br>
<br>
my $login = "lucas";<br>
my $pass = "abc";<br>
<br>
my $q = CGI->new;<br>
<br>
if($login eq $q->param('login') && $pass eq $q->param('pass')){<br>
my $session = CGI::Session->new();<br>
<div class="im"> my $cookie = $q->cookie(-name=>'session', -value=> $session->id,<br>
</div>-expires => '+1h', -path => '/tmp');<br>
<div class="im"> print $q->header(-cookie => $cookie);<br>
</div> $session->param('login', $login);<br>
}<br>
<br>
a saida é só isso:<br>
Set-Cookie: session=307fd3f5783735563cc14f3741881f90; path=/tmp;<br>
expires=Mon, 02-Jul-2012 23:25:00 GMT Date: Mon, 02 Jul 2012 22:25:00<br>
GMT Content-Type: text/html; charset=ISO-8859-1<br>
<br>
Em 2 de julho de 2012 19:19, Gabriel Vieira <<a href="mailto:gabriel.vieira@gmail.com">gabriel.vieira@gmail.com</a>> escreveu:<br>
<div class="HOEnZb"><div class="h5">> manda o output da tua app... tem q ver se ta indo no header direitinho<br>
><br>
> 2012/7/2 Lucas Moraes <<a href="mailto:lucastiagodemoraes@gmail.com">lucastiagodemoraes@gmail.com</a>>:<br>
>> Eduardo Maia, também não esta no navegador, eu verifiquei.<br>
>><br>
>> Estou usando localmente, veja os cookies local<br>
>> <a href="http://imageshack.us/photo/my-images/842/capturadetelade20120702.png/" target="_blank">http://imageshack.us/photo/my-images/842/capturadetelade20120702.png/</a><br>
>><br>
>> nenhum com o nome "session"<br>
>><br>
>> Em 2 de julho de 2012 19:11, Eduardo Maia <<a href="mailto:maia@eduardomaia.com">maia@eduardomaia.com</a>> escreveu:<br>
>>> Lucas, o $ENV{'HTTP_COOKIE'} pode não imprimir um cookie que foi setado com<br>
>>> sucesso, um exemplo desta ocorrência está no arquivo que eu enviei. Você<br>
>>> poderia enviar pra gente um screenshot dos cookies armazenados no seu<br>
>>> navegador web? Porque pelo código que você enviou, o cookie parece que foi<br>
>>> setado corretamente...<br>
>>><br>
>>> Abs<br>
>>><br>
>>><br>
>>> 2012/7/2 Lucas Moraes <<a href="mailto:lucastiagodemoraes@gmail.com">lucastiagodemoraes@gmail.com</a>><br>
>>>><br>
>>>> Não esta gravando não, eu já tinha olhado com $ENV{'HTTP_COOKIE'}, já<br>
>>>> setei o path também e nada.<br>
>>>><br>
>>>> Em 2 de julho de 2012 18:59, Gabriel Vieira <<a href="mailto:gabriel.vieira@gmail.com">gabriel.vieira@gmail.com</a>><br>
>>>> escreveu:<br>
>>>> > Viu as configurações do chrome? Consegue visualizar o Cookie nos<br>
>>>> > settings do chrome?<br>
>>>> ><br>
>>>> > Mostra todo o output gerado pela tua app.<br>
>>>> ><br>
>>>> > 2012/7/2 Lucas Moraes <<a href="mailto:lucastiagodemoraes@gmail.com">lucastiagodemoraes@gmail.com</a>>:<br>
>>>> >> Gabriel estou usando Chrome.<br>
>>>> >><br>
>>>> >> Fernando é tudo no mesmo script. faço autenticação, na página que é<br>
>>>> >> redirecionado já não consigo acessar e nem na própria página que é<br>
>>>> >> gerado.<br>
>>>> >><br>
>>>> >> Falou.<br>
>>>> >><br>
>>>> >><br>
>>>> >> Em 2 de julho de 2012 18:45, Fernando Oliveira<br>
>>>> >> <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>> escreveu:<br>
>>>> >>> Outra pagina em outro domínio?<br>
>>>> >>><br>
>>>> >>><br>
>>>> >>><br>
>>>> >>> Just another Perl Hacker,<br>
>>>> >>> Fernando (SmokeMachine)<br>
>>>> >>><br>
>>>> >>><br>
>>>> >>> Em 2 de julho de 2012 18:43, Lucas Moraes<br>
>>>> >>> <<a href="mailto:lucastiagodemoraes@gmail.com">lucastiagodemoraes@gmail.com</a>><br>
>>>> >>> escreveu:<br>
>>>> >>>><br>
>>>> >>>> Estou gerando o cookie com o código;<br>
>>>> >>>> my $cookie = $q->cookie(-name=>'session', -value=> $session->id,<br>
>>>> >>>> -expires => '+1h');<br>
>>>> >>>> print $q->header(-cookie => $cookie);<br>
>>>> >>>><br>
>>>> >>>> Resultado:<br>
>>>> >>>> Set-Cookie: session=92ce2cbd31e66e52aae6038f444812bc; path=/;<br>
>>>> >>>> expires=Mon, 02-Jul-2012 22:37:16 GMT Date: Mon, 02 Jul 2012 21:37:16<br>
>>>> >>>> GMT Content-Type: text/html; charset=ISO-8859-1<br>
>>>> >>>><br>
>>>> >>>> Mas quando tento acessar o cookie outra página, cade o cookie.<br>
>>>> >>>> Não esta gravando, minha maquina é ubuntu 12.04 64bit<br>
>>>> >>>><br>
>>>> >>>> Alguém tem ideia do que pode ser?<br>
>>>> >>>><br>
>>>> >>>> Obrigado e ate mais.<br>
>>>> >>>> =begin disclaimer<br>
>>>> >>>> Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
>>>> >>>> SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
>>>> >>>> L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
>>>> >>>> =end disclaimer<br>
>>>> >>><br>
>>>> >>><br>
>>>> >>><br>
>>>> >>> =begin disclaimer<br>
>>>> >>> Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
>>>> >>> SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
>>>> >>> L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
>>>> >>> =end disclaimer<br>
>>>> >>><br>
>>>> >> =begin disclaimer<br>
>>>> >> Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
>>>> >> SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
>>>> >> L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
>>>> >> =end disclaimer<br>
>>>> ><br>
>>>> ><br>
>>>> ><br>
>>>> > --<br>
>>>> > Gabriel Vieira<br>
>>>> > =begin disclaimer<br>
>>>> > Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
>>>> > SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
>>>> > L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
>>>> > =end disclaimer<br>
>>>> =begin disclaimer<br>
>>>> Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
>>>> SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
>>>> L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
>>>> =end disclaimer<br>
>>><br>
>>><br>
>>><br>
>>> =begin disclaimer<br>
>>> Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
>>> SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
>>> L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
>>> =end disclaimer<br>
>>><br>
>> =begin disclaimer<br>
>> Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
>> SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
>> L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
>> =end disclaimer<br>
><br>
><br>
><br>
> --<br>
> Gabriel Vieira<br>
> =begin disclaimer<br>
> Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
> SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
> L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
> =end disclaimer<br>
=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
</div></div></blockquote></div><br></div>