Select Code to Download

sub ReadParse {
local($name, $value, $pair, $buffer, @pairs);
...
}
return;
}

use CGI;
my $query = CGI->new();
my @names = $query->param;