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

$cd = $ENV{"QUERY_STRING"} ;
print $cd."<hr>" ;

@data = split('&',$cd);
for $i (@data) { 
  print $i."<hr>" ;
  split /=/,$i ;
  for (@_) { print "<blockquote>".$_."</blockquote>" }
}