sub get_form_data {
        my $temp;
        my $buffer;
        my @data;
    
        if (exists($ENV{'CONTENT_LENGTH'}) and defined($ENV{'CONTENT_LENGTH'})) {
            read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
            foreach $temp (split(/&|=/,$buffer)) {
                $temp =~ tr/+/ /;
                $temp =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
		$temp =~ s/[\r\n]/ /g;
                push @data, $temp;
            }
        }
        foreach $temp (split(/&|=/,$ENV{'QUERY_STRING'})) {
                $temp =~ tr/+/ /;
                $temp =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
		$temp =~ s/[\r\n]/ /g;
                push @data, $temp;
        }
        return @data;
}