Select Code to Download

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