my $bhangs = $q->cookie(-name=>"current_bhangs") || set_cookie($q); 

sub set_cookie {
	my $q = shift;
	$val="schicken fu";
	my $cookie = $q->cookie ( -name=>"bhangs",
						 -value=>"$val",
						 -expires=>"+2m");  

print $q->redirect(-url=>url,
					-cookie=>$cookie);
	exit;
}