session

[maurimono]

Hola.

Estoy tratando de levantar un sistema echo 100% en perl. aparentemente no propaga la secion como corresponde y me envia a la pagina de inicio. este es mas menos el codigo:
pagina de inicio, le paso por url el valor de identificacion (esto ya que esta enganchado a otro sistema de logeo por webservices)

Código:

my $re = $data->logeo($id, $sesion);
  $nombres= @$results[0]->{nombres};
  $apaterno=@$results[0]->{apaterno};
  $login=@$results[0]->{login};

  $session->param('nombres', $nombres);
  $session->param('apaterno', $apaterno);
  $session->param('login', $login);

  $cookie_session = cookie(-name=>'CGISESSID',-value=>$session->id());
  print header(-cookie=>$cookie_session);
  print "<meta http-equiv='refresh' content='0;URL=main.cgi'>";

en main.cgi

Código:

use CGI::Session;
use CGI qw/:standard/;
use SIE::GeneralCgi;
use HTMLTMPL;

$nombre = $datos->{session}->{nombre};
$apaterno = $datos->{session}->{apaterno};
$login = $datos->{session}->{login};

#al hacer print
print $nombre;
#el dato viene vacio

Al hacer print sobre las variables, estas vienen vacias.... uf.... ya no se me ocurre que puede ser.