Select Code to Download

my $dbh = manageusers::OpenConnection();
warn("update_tables.cgi after open connection");
...
    "driver:MySQL", $query, { Handle => $dbh }
);           
my $userid_1 = $session->param("user_id");