#!/usr/bin/perl

use CGI;
use HTTP::Cookies;
my $q = new CGI;

my $status=$q->cookie('ckname');

 &set_cookie($status);

sub set_cookie
{
    my($cookieid)=shift;
    my @cookies = ($q->cookie(-name=>"ckname", 
			      -value=>$cookieid, 
			      -expires=>'', 
			      -path=>'/', 
			      -domain=>'.bn.whsites.net'));
    print $q->header(-cookie=>\@cookies);
}