$q = new CGI;
my $cookievalue = $q->cookie('User_Session');
print "Content-type: text/html\n\n";
$initcookie = $q->cookie(
              -name=>'User_Session',
              -value=>'abc',
              -expires=>'', # leave this blank
              -path=>'/',
              -domain=>'www.thedialogcenter.com',
              -secure=>0
              );

print "The cookie value is : $cookievalue<br>";