blob: e68dadbb44ce93e93ad56948b462da01562d7a71 [file] [log] [blame]
#!/usr/bin/perl -wT
print "Content-type: text/javascript\n";
print "Cache-control: max-age=0\n";
print "\n";
my $random_number = int(rand(1000000000000));
print "randomNumber = " . $random_number . ";\n";
print "document.querySelector('h1').textContent = randomNumber;";