#!/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>";