#!/opt/internet/bin/perl -d
#
# post-query.pl -- Conversion of post-query to Perl
#
# post-query.pl,v 0.1 1994/06/30 Mary Morris
#
# Example of post-query converted to perl
#


$form = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$form);
while (@pairs) {
	$pair=shift @pairs;
	$pair =~ s/\+/ /g;
	$pair =~ s/^/\$/;
	$pair =~ s/\=/\=\"/;
	$pair =~ s/$/\"/;
	print "$pair";
}
$pair;
print "$name";
