Select Code to Download

# using Vars...
use CGI;
...
        # Do something with $params->{$key}
    }
}

# using param...
use CGI;
...
for (grep(/^\d+$/, $q->param)) {
    # Do something with $q->param($_)
}