14 lines
274 B
Perl
14 lines
274 B
Perl
|
use CGI;
|
||
|
|
|
||
|
|
$q1 = new CGI;
|
||
|
|
|
||
|
|
$cookie1 = $q1->cookie(
|
||
|
|
-name=>'FIRST_NAME', -value=>'Joe',
|
||
|
|
-expires=>'Fri, 30-Aug-2002 15:30:30 GMT;',
|
||
|
|
-path=>'/',
|
||
|
|
-domain=>'127.0.0.1');
|
||
|
|
|
||
|
|
print $q1->header(-cookie=>$cookie1);
|
||
|
|
|
||
|
|
print "Cookie Created ...";
|