my $cook  = $q->cookie(
                                -name   =>  'uid',
                                -value  =>  $s->info->uid,
                                -path   =>  '/'
                             );     

    $s->set ? print $q->header(-'cookie'=>$cook, -'type'=>'text/html') :
           print $q->header(-'type'=>'text/html');