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;
}