Select Code to Download

my ($buffer,$name,$value,@pairs,$pair);
@pairs = split(/&/, $buffer);
...
        $INPUT{$name} = $value;
        print "\$INPUT{$name} = $value<br>";
}