if($query{'action'} eq 'Login'){
	setCookie();

}else{

	head(); #header subroutine

	fetchCookie(); #displays results

	## ... other misc stuff...

}

sub setCookie {

	$cookie1 = new CGI::Cookie(-name    =>  'cookie name',
        	                   -value   =>  'value here',
                	           -expires =>  '+3M',
                        	   -path    =>  '/',
	                          );

	print "Set-Cookie: $cookie1\n";

	print header;

	print '<meta http-equiv="refresh" content="2">';
}