%cookies = fetch CGI::Cookie;
$name = $cookies{'Event_USER'}->value;

$cookie1 = new CGI::Cookie(-name    =>  'Event_USER',
						                             -value   =>  $username,
						                             -expires =>  '+3M',
						                             -domain  =>  '127.0.0.20',                             
						                             -path    =>  '/',
						                             -secure  =>  1
							                    );