#! /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>" }