open O, ">$ofile" or die;
my $len=$ENV{'CONTENT_LENGTH'};
while($len) {
　my $data,$size=64*1024; # 64Kbyteづつ
　$size = $len if ($len<$size);
　read(STDIN,$data,$size);
　print O, $data;
　$len-=$size;
}
close O;