LayoutTests/http/tests/xmlhttprequest/print-content-type.cgi

#!/usr/bin/perl -w

use CGI qw(:standard);
my $cgi = new CGI;

print "Content-type: text/plain\n\n"; 
print "$ENV{\"CONTENT_TYPE\"}\n";