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