$q = new CGI;
my $cookievalue = $q->cookie('User_Session');
$initcookie = $q->cookie(
              -name=>'User_Session',
              -value=>'abc',
              -path=>'/',
              -domain=>'www.thedialogcenter.com',
              -secure=>0
              );

print $q->header(-cookie=>$initcookie);
print "Content-type: text/html\n\n";
print "The cookie value is : $cookievalue<br>";