sub set_cookie_value
{
	my ($inputs) = @_;
	
	my @cookies = ();

	my $key;     
	foreach $key (keys %$inputs)
	{    
		$cookie = new CGI::Cookie(-name=>$key, -value=>$inputs->{$key}, -expires=>$inputs->{$key}, -path=>'/', -domain=>'', -secure=>0);
		push (@cookies, $cookie);  
	} 
	
	print header( -cookie=>\@cookies );   
	
	print "--$inputs->{'postcode'}--"
}