require "/var/www/perl/include.pl"; require "/var/www/perl/functions.pl"; #create or resume session CGI::Session->name($session_name); my $session = new CGI::Session; #read xml $page = XMLin('/var/www/perl/index.xml', ForceArray => 1, KeyAttr => {} ); #fill tags $page->{sid} = [$session->id]; $page->{loggedin} = [$session->param('auth')]; fill_tagcloud; #print xml http header along with session cookie print $session->header(-type=>'text/xml'); #print xml print XMLout($page, KeyAttr => {}, XMLDecl => '', RootName => 'page');