#!/usr/bin/perl use CGI; $query = new CGI; $cookie1 = $query->cookie( -domain=>'foobar.com', -name=>'TheCookie', -value=>'anything ', -expires=>'+24h', -path=>'/', -secure=> 0); print $query->header(-cookie=>$cookie1); print" Done. "; print $query->end_html;