#!/usr/local/bin/perl

print "Content-type: text/plain\n\n";

open(FILE, $ENV{QUERY_STRING});
while(<FILE>)
{
	print $_;
}
close(FILE);
