1#!/usr/bin/perl
2
3
4print "Content-Type: text/plain\r\n\r\n";
5
6if ($ENV{"REQUEST_METHOD"} eq "POST") {
7	my $l = 0;
8	while(<>) {
9		$l += length($_);
10	}
11	print $l;
12} else {
13	print "0";
14}
15
16