#!/opt/default/bin/perl -w my %params; read(STDIN, $q, $ENV{CONTENT_LENGTH}); parse($q); print < query = $q

params = "%params\n"; END sub parse { my @pairs = split('&', @_); my($par, $val); foreach (@pairs) { ($par, $val) = split('='); # unescape if ($params{$par}) { $params{$par} .= "$;$val"; } else { $params{$par} = $val; } } return %params }