Select Code to Download

sub bake {
...
    push(@new_cookies, @$cookies) if $cookies;
    $cookie->param('cookies', ¥@new_cookies);
 }

 sub return_cookies {
    my $cookie     = shift ;
...
    $cookie->debug("SET @$cookies") if $cookies;
    return @$cookies if $cookies;
}

sub top {
    my $app = shift;
...
    $app->cookie->bake(-name=>'keyword_or', -value=>"$keyword_or") if 
+$keyword_or;
.....
}

$app->cookie->bake(-name=>'keyword_or', -value=>'', -expires=>'-1h');