third_party/WebKit/LayoutTests/http/tests/security/xssAuditor/resources/echo-property-noquotes.pl - chromium/src - Git at Google

 #!/usr/bin/perl -wT
 use strict;
 use CGI;

 my $cgi = new CGI;

 print "X-XSS-Protection: 1\n";
 print "Content-Type: text/html; charset=UTF-8\n\n";

 print "<!DOCTYPE html>\n";
 print "<html>\n";
 print "<body foo=";
 print $cgi->param('q');
 print ">\n";
 print "</body>\n";
 print "</html>\n";
	#!/usr/bin/perl -wT
	use strict;
	use CGI;

	my $cgi = new CGI;

	print "X-XSS-Protection: 1\n";
	print "Content-Type: text/html; charset=UTF-8\n\n";

	print "<!DOCTYPE html>\n";
	print "<html>\n";
	print "<body foo=";
	print $cgi->param('q');
	print ">\n";
	print "</body>\n";
	print "</html>\n";