sub dropCookie {
  my ($username,$form)=@_;
  my $sessionID = md5_hex(md5_hex(time.{}.rand().$$));
  my $value = "$sessionID\.$username";
  my $cookie = $form->cookie(-name=>'sessionID',
                      -value => $value,
                      -path=>'/',
                      -domain=>'.mysite.com');

  print $form->header(-cookie=>$cookie) or &dieNice("Failed to put cookie on users computer");
  return;
}