third_party/WebKit/LayoutTests/http/tests/encoding/resources/pause-then-switch-encoding.cgi

   1 #!/usr/bin/perl
   2
   3 use IO::Socket;
   4
   5 $| = 1;
   6
   7 autoflush STDOUT 1;
   8
   9 print "Content-Type: text/html\n\n";
  10
  11 print "<html><head><script>alert(document.inputEncoding);</script>\n";
  12 sleep 1;
  13 print "<meta charset=windows-1255></head><body><script>alert(document.inputEncoding);</script></body></html>\n";