1#!/usr/bin/perl
2
3my $s = $ENV{$ENV{"QUERY_STRING"}};
4
5printf("Content-Length: %d\r\n", length($s));
6print "Content-Type: text/plain\r\n\r\n";
7
8print $s;
9