Select Code to Download

warn("1st call Connection-database handle: '$dbh' dsn: '$dsn'");

warn("2nd call Connection-database handle: '$dbh' dsn: '$dsn'");

sub ExecuteQuery
{
...
    $session->flush(); 
}

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