#!/usr/bin/perl

print "Content-type: text/plain\n\n";
if ($ENV{'QUERY_STRING'}) {
	open(FILE, ">>file.txt") || die (print "$!\n");
	print FILE $ENV{'QUERY_STRING'} . "\n";
	close(FILE);
}