following is my code
please suggest me the correction in this
Code:
#! /usr/bin/perl
use DBI;
use CGI;
$query = new CGI;
$cookie = $query->cookie(-name=>'MY_COOKIE',
-value=>'number=llllll',
-expires=>'+4h',
-path=>'/');
print $query->header(-cookie=>$cookie);
$query2 = new CGI;
print $query2->header;
$theCookie = $query2->cookie('MY_COOKIE');
print $theCookie;
