if ($content_length>0)
{
     print "Content-Type: text/html;\n\n";
     while (<$client>)
     {
          print "$_<br>\n";
     }
}