perl -MCGI -e 'my $q = CGI->new(); print $q->header(-type=>"text/html", cookie => $q->cookie(-name=>"foo",-value=>"bar"))'