#!/usr/bin/perl
use strict;
use CGI;
my $query = new CGI;
my $username = int(rand 1000000);
my $result;

   my $cookie = $query->cookie('xmsessionID');  #check for cookie
   if (!$cookie) { 
      $result = "No cookie<br>"; 
   #goto &login;
   } else { 
      $result = "Cookie found: $cookie<br>"; 
   }
        
      #-------- write new cookie -----------
   my $newcookie = 
               $query->cookie(-name=>'xmsessionID',
                           -value=> $username,
                           -expires=>'+1m');
                                         
   print $query->header(-cookie=>$newcookie);
        
   print "Content-type: text/html\n\n";
   print $result,"<br>";
[download]

If you are using CGI (which you rightly should be as you are), you shouldn't manually output your headers. Calling $query->header(); will do it for you, and $query->header( -cookie => $newcookie ); will print out the Set-cookie header, as well as the Content-type header.

Sorry, I didn't quite follow you, but I wish I did. If you, whoever you are, get a chance, can you expound a bit? I can't tell if I was doing it right or if you were suggesting another way. Thanks.

—Brad
"A little yeast leavens the whole dough."