Select Code to Download

my %settings;
while ((undef, my ($name, $value)) = $sql->fetchrow_array()) {
    $settings{$name} = $value;
}

        my %settings;
        while ((my ($tmp,$name, $value)) = $sql->fetchrow_array()) {
...
        }
        $sql->finish();
        print $lastlog."\n";