#!/usr/bin/perl -w
use strict;
use CGI;
$|++;

#
# this is the receiving script run under http
# receiving data from an https page - same result
# in IE5 and in Mozilla 0.9.5
# 

my $q = new CGI;
print $q->header;

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

print "CONTENT_LENGTH = $ENV{'CONTENT_LENGTH'}\n\n";
# 109 - OK

print "Buffer = $buffer\n\n";
# shows $buffer is empty

# try to read vars the 'standard' CGI way...

for ($q->param()) {
  print "$_ = ".$q->param($_)."\n";
}
# prints nothing