#/usr/bin/perl -w

use strict;

use v5.10;

exit unless $ENV{'REQUEST_METHOD'} eq "POST";

my $len = $ENV{'CONTENT_LENGTH'} || 0;

my $type = $ENV{'CONTENT_TYPE'} || '';