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);
}