blob: 26f5c82893d12947d39c02bfe808747cc4b10298 [file] [log] [blame]
#!/usr/bin/perl -w
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;";