| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -wT |
| 2 | 2 |
| 3 print "Content-type: text/html\n"; | 3 print "Content-type: text/html\n"; |
| 4 print "Cache-control: max-age=60000\n"; | 4 print "Cache-control: max-age=60000\n"; |
| 5 print "ETag: \"123456789\"\n"; | 5 print "ETag: \"123456789\"\n"; |
| 6 print "\n"; | 6 print "\n"; |
| 7 | 7 |
| 8 my $random_number = int(rand(1000000000000)); | 8 my $random_number = int(rand(1000000000000)); |
| 9 print << "END"; | 9 print << "END"; |
| 10 | 10 |
| 11 <script> | 11 <script> |
| 12 var randomNumber = $random_number; | 12 var randomNumber = $random_number; |
| 13 top.postMessage(randomNumber, "*"); | 13 top.postMessage(randomNumber, "*"); |
| 14 </script> | 14 </script> |
| 15 | 15 |
| 16 END | 16 END |
| OLD | NEW |