Select Code to Download

    if ($ENV{'REQUEST_METHOD'} eq 'GET') {
            $buffer = $ENV{'QUERY_STRING'};
...
            $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/e
+g;
            $FORM{$name} = $value;
    }

use CGI ':standard';
my %FORM = CGI->Vars;