--- Kyle Babich <[EMAIL PROTECTED]> wrote: > Ok, what you put didn't work for me for some reason. I was getting > some syntax errors. I played with it a little bit and this is what I > got to work: > > #!/usr/bin/perl -wT > use strict; > use CGI qw/:standard/; > > print "Content-type: text/html\n\n"; > > print header;
Kyle, is there any chance that you are using a recent version of Internet Explorer? The two print lines that you have above will print almost the same thing (except that "header" also prints the charset, which is more correct. The reason I ask if you are using a recent version of IE is because IE often does a lot of "error correcting" for you and will suppress the extra header, whereas Netscape and friends will display the second printing of the header in the browser window. Note that headers end with two newlines, so the above should print this: Content-type: text/html Content-Type: text/html; charset=ISO-8859-1 Since two newlines indicate the end of the headers, the second content type header *should* be appearing in the browser window (yes, I'm being redundant, but I've got a lot of email to answer, so I want to make this brief :) Cheers, Curtis "Ovid" Poe ===== "Ovid" on http://www.perlmonks.org/ Someone asked me how to count to 10 in Perl: push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//; shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @A __________________________________________________ Do You Yahoo!? Yahoo! - Official partner of 2002 FIFA World Cup http://fifaworldcup.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
