This Perl script displays a random image.
#!/usr/bin/perl # This script selects a random number and then # chooses an image, based on that number. This # allows the image to change each time the webpage # is loaded. # set variables $dir = "/images/"; @files = ("file1.jpg", "file2.jpg", "file3.jpg", "file4.jpg", "file5.jpg"); srand(time ^ $$); $num = rand(@files); # Pick a Random Number # Print Out Header With Random Filename and Base # Directory print "<img src=\"$dir$files[$num]\" alt=$files[$num] border=1 >\n<BR>"; print "Location: $dir$files[$num]\n\n<BR>";