$cookie_out = $query->cookie( -name=>$cookie_name, -value=>$cookie_value, -expires=>1400m, -path=>'/',                                                                                            -domain=>$cookie_domain); 


##</code><code>##

print $query->header(-cookie=>$cookie_out, -refresh=>"0; URL=$config{baseurl}/?c=TestCookie",);

print $query->start_html(-title=>'.');
print $query->end_html;

##</code><code>##


print "<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=$config{baseurl}/$config{script_filename}?c=TestCookie\">";