Select Code to Download

    my $q = new CGI;
    my %vars = $q->Vars; # Fetch all CGI parameters
...

    # Fetch all defaults from the DB and return as a hash ref
    sub pop_defaults { my $r = { }; ... return $r }

    $vars{$_} = $db_vars{$_} // $q->param($_) for ($q->param);

    %vars{keys %db_vars} = values %db_vars;