# major "snip", but you get the idea...

my $q = new CGI;

my $cookie = $q->cookie(-name=>'timeout',
                        -value=>'session id',
                        -expires=>'+15m');

print $q->header(-cookie=>$cookie);