#!/usr/bin/perl -w

print "Content-type: text/javascript\n";
print "Cache-control: no-store\n";
print "\n";

my $random_number = int(rand(1000000000000));
print "randomNumber = " . $random_number . ";\n";
print "document.querySelector('h1').textContent = randomNumber;";