read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'}); @Query_keys_values = split(/&/, $query_string); foreach $key(@Query_keys_values){    chomp ($key);   ($Query_key, $Query_value) = split(/=/, $key);    $DB{$Query_key} = $Query_value; }