Select Code to Download

Select or download this

    if ($ENV{'REQUEST_METHOD'} eq 'GET') {
        @pairs = split(/&/, $ENV{'QUERY_STRING'});
...
    } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
        read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
        @pairs = split(/&/, $buffer);

Select or download this

        ## REMOVE poison NULL 
        $key =~ s/\0//g;
...
        my $allowedCHARS = 'a-zA-Z0-9\!\"\#\$\%\&\'\(\)\*\+\,\-\.\/\:\
+;\<\=\>\?\@\[\\\]\^\_\`\{\|\}\~';
        $key =~ s/[^$allowedCHARS]//gi;
        $value =~ s/[^$allowedCHARS]//gi;

Select or download this
```
        $key =~s///g;
```

Select or download this

###=== Begin Cosmetic/Functionality addition ========
        ## REMOVE LEADING BLANKS
...
        ## REMOVE TRAILING BLANKS
        $key =~ s/\s*$//;
###=== End Cosmetic/Functionality addition ==========

Select or download this

        if ($formdata{$key}) {
            $formdata{$key} .= ", $value";
        } else {
            $formdata{$key} = $value;
        }

Select or download this

my @values = split /, /, $formdata{ $somekey };