I have just started PERL..and am learning to use environmental variables
etc.all works fine at school.but at home no luck.
 
I am running WIN2K IIS..have activeperl 5.6.1..here is the error
 
"The specified CGI application misbehaved by not returning a complete
set of HTTP headers. The headers it did return are:"
 
Here is the code but I think it may be my server config.
 
Any help greatly appreciated
 
 
Mark Smith
 
open(COUNTREAD, "counter.dat");
   my $data = <COUNTREAD>;
   $data++;
close(COUNTREAD);
 
open(COUNTWRITE, ">counter.dat");
   print COUNTWRITE $data;
close(COUNTWRITE);
 
print "<body bgcolor='ffffff'><table><tr><td width='270'><h3>";
print "<STRONG><font color='996633' face='arial'>Number of Site hits
received during 
 
development.</font></STRONG></h3></td><td>";
 
for ($count = 0; $count < length($data); $count++ )
{
   $number = substr( $data, $count, 1 ) ;
   print "<IMG SRC=\"$number.gif\">";
}
 
print "</td><td><STRONG><h3><font color='996633' 
Current Address , $ENV{ "REMOTE_ADDR" }, 
face='arial'></font></h3></STRONG></td></tr></table></body></td></tr></t
able></body>";
 
 
 


Reply via email to