===========================
some_file.html
---------------------------
==============================
================================
script.pl:
--------------------------------
#!/usr/bin/perl
use CGI qw/:standard/;
print header;
$length = $ENV{'CONTENT_LENGTH'};
$count = read (STDIN, $buffer, $length);
print "readed actually: $count, length: $length";
================================