Select Code to Download

#!/usr/bin/perl -w
use strict;
...
# complete URI (not relative) is important for proxies/squid/and HTTP-
+1.0
# Sending STATUS _first_ also matters
exit;

#!/usr/bin/perl -Tw

...
{
    print "content-type:text/html; charset=utf-8\n\n";
}

if ($ENV{'HTTP_USER_AGENT'} =~ /W3C\_CSS\_Validator\_JFouffa/)
{
...
print "    <meta http-equiv=\"content-type\" content=\"application\/xh
+tml+xml; charset=utf-8\" />\n";
print "    <link rel=\"stylesheet\" type=\"text/css\" href=\"css3.css\
+"  media=\"screen, projection, print\" />\n";
}