#!/usr/bin/perl
# Problem: The second time a user clicks on the URL that
# Calls your CGI script, their browser retrieves the
# cached output of the last call. It doesn't connect
# to the server, and cause the script to be run again,
# because it thinks it knows what the output will be.
# This can be a problem if your script is supposed to
# generate unique information each time its called.
# For instance- "Click here to get the current tempature".
# To keep this from happening you can have the CGI generate
# the page that calls it. Each time it prints out its own
# URL it includes a bit of "extra path information", that is
# different each time. Therefore when the user clicks on
# the URL for the CGI script it is not exactly the same,
# as last time, and the browser doesn't get it from the cache.
$number = $fields{'number'};
print("Content-Type: text/html\n\n");
print("Random Number Page\n");
print("\n");
srand;
$number = rand(100);
$number = substr($number,0,2);
print "The random number is ", $number, "
";
print "
";
print "";
print "Get another Random number\n";
print "
";
print "
See the Perl";
print " Source Code";
print "(random.cgi) for this page";
print "
Back to Examples Page\n";
print("");
print("