#!/usr/bin/perl -w

print "Content-type: text/html\n";
print "Cache-control: max-age=60000\n";
print "ETag: \"123456789\"\n";
print "\n";

my $random_number = int(rand(1000000000000));
print << "END";

<script>
var randomNumber =  $random_number;
top.postMessage(randomNumber, "*");
</script>

END