| #!/usr/bin/perl -w | |
| print "Content-type: text/javascript\n"; | |
| print "Cache-control: max-age=60000\n"; | |
| print "\n"; | |
| my $random_number = int(rand(1000000000000)); | |
| print "top.randomNumber = " . $random_number . ";\n"; | |
| print "top.document.querySelector('h1').textContent = top.randomNumber;"; |