Select Code to Download

#Parse Data
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
...
        $value =~ s/^\s+//;
        $FORM{$name} = $value;
}