@to_set = (-cookie => cookie(-name => $name, ...));

# ...

print header(@to_set);