close enough:

$cookie = $query->cookie(-name=>$name,
                         -value=>$value,
                         -expires=>'+1h');
print $query->header(-cookie=>$cookie);
[download]

and your question was??

---

He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.

Chady | http://chady.net/