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

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

 &set_cookie('abc');

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


##</code><code>##

Set-Cookie: ckname=abc; domain=.bn.whsites.net; path=/
Date: Wed, 05 Oct 2005 02:29:51 GMT
Content-Type: text/html; charset=ISO-8859-1