unless (cookie('sessionID')) {
  my $cookie = $query->cookie(-name=>'sessionID',
                              -value=>'xyzzy',
                              -expires=>'+1h',
                              -path=>'/');
  print $query->header(-cookie=>$cookie);
}