"; print $server; print "

#!/usr/bin/perl -w use strict; print "Status: 301 Moved Permanently\n"; print "Location: http://COMPLETE/URI\n\n"; # complete URI (not relative) is important for proxies/squid/and HTTP-1.0 # Sending STATUS _first_ also matters exit; ##

##

#!/usr/bin/perl -Tw

#accepts application/xhtml?
if ($ENV{'HTTP_ACCEPT'} =~ /application\/xhtml\+xml/)
{
    print "content-type:application/xhtml+xml; charset=utf-8\n\n";
}
#no? then text/html they get
else
{
    print "content-type:text/html; charset=utf-8\n\n";
}

##

##

if ($ENV{'HTTP_USER_AGENT'} =~ /W3C\_CSS\_Validator\_JFouffa/)
{
print "\n";
    print "\n";
print "
\n";
print "\n";
my $server = $ENV{SERVER_NAME};
print "	";
print $server;
print "\n";
print "	\n";
}
else
{
print "\n";
    print "\n";
print "
\n";
print "\n";
my $server = $ENV{SERVER_NAME};
print "	";
print $server;
print "\n";
print "	\n";
print "	\n";
}