chromium/src/third_party/blink/web_tests/http/tests/xmlhttprequest/resources/print-query.cgi

#!/usr/bin/perl -wT

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

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