#! /usr/bin/perl
print "Content-type: text/html\n\n" ;

$_ = <> ;
print "$_<hr>";

for (split('&',$_)) {
  print "$_<hr>" ;
  ($name,$value) = split /=/,$_ ;
  $cgidat{$name} = $value ;
  print "<blockquote>\$cgidat{'$name'} = $value</blockquote>"
}