my $bytes_read = read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

print "Bytes read: $bytes_read\n";