#! /usr/local/bin/perl
#Print the query string sent to the script
#noexec
#file: print_query.pl

require '/home/scsfac/downeyt/scripts/parse-lib.pl';

print "Content-type: text/plain\n\n";


%query = &get_query;


foreach $name (keys %query) {
    @values = split ($;,$query{$name});
    foreach $value (@values)
    {
	print "$name => $value\n";
    }
}
