my ($usr,$pw);
if ($ENV{'HTTP_COOKIE'}) { # from cookie
	$usr = $wm->cookie('wintermarket_members_user');	  
	$pw = $wm->cookie('wintermarket_members_pass');   
} else { # from form
	$usr = $wm->param('usr');
	$pw = $wm->param('pw');
}
&set_cookie($usr,$pw,$wm);

#... in set_cookie sub
my $cookie_usr = $input->cookie(-name=>'wintermarket_members_user',
    			                        -value=>$usr,
     			                        -expires=>'+1h');
my $cookie_pw = $input->cookie(-name=>'wintermarket_members_pass',
    			                       -value=>$pw,
     			                       -expires=>'+1h');
print $input->header(-cookie=>[$cookie_usr,$cookie_pw]);