Select Code to Download

    ## Read the current vote number from the mySQL database.
    my $dbh = DBI->connect("DBI:mysql:$database","$username","$passwor
+d") || error_fatal ("[ vote.cgi: Admin: Unable to open mySQL database
+ - $! ]");
...
       $sth_1->execute();
    my @vote_no = $sth_1->fetchrow_array();
    my $current_vote = $vote_no[0];

    sub return_variables
        {
...
        my @variables = ("$server_root","$db_database","$db_username",
+"$db_password");
        return @variables;
        }