if (...successful...) {
   print redirect( -uri    => "policy.cgi",
                   -cookie => [ $to_set1, $to_set2, $to_set3 ] );
} else {
   print header( -cookie => [ $to_set1, $to_set2, $to_set3 ] );
   ...
}