my ($usr,$pw);

if ($ENV{'HTTP_COOKIE'}) {
    $usr = $wm->cookie('user');      
    $pw = $wm->cookie('pass');   
} else {
    $usr = $wm->param('usr');
    $pw = $wm->param('pw');
}
print $wm->header(-cookie=>[$usr, $pw]);