sub bake {
	
 	my $cookie = shift;
 	my @args = @_;
 	
 	use CGI;
	my $query	= new CGI;
	
	# Make a new cookie
 	my $new_cookie = $query->cookie(@args);

 	# Get the cookies already baked	
	my $cookies = $cookie->param('cookies');

	my @new_cookies; 
	push(@new_cookies, $new_cookie);
	push(@new_cookies, @$cookies) if $cookies;
	$cookie->param('cookies', ¥@new_cookies);
 }