read(STDIN, $input, $ENV{'CONTENT_LENGTH'})or die "error in read: $!