my $data;
read(STDIN,$data,$ENV{'CONTENT_LENGTH'});