#!/usr/bin/perl

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

my $cookie_jar = HTTP::Cookies->new;

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

&set_cookie('abc');

$response = '.bn.whsites.net';

my $cjar = HTTP::Cookies->new;
$cjar->extract_cookies($response);
my $cookie = $cjar;

print $cookie;

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