sub OpenSession{
  my ($dbh, $sid)= @_;
  $session  = new CGI::Session("driver:MySQL", $sid, {Handle=>$dbh, LockHandle=>$dbh});
  return $session;
}