#!/usr/local/bin/perl # Program Name: random.pl # Author: D. W. Hyatt # This program selects a random graphic image from another directory # and then creates a web page featuring the picture. srand; # initialize random seed $i=0; while (<../images/*>) { # loop through directory and get names of images $array[$i++] = $_; # The variable \$_ is a default scalar variable } print "Content-type: text/html\n\n"; $image = $array[int(rand($i))]; # Grab random image name print<

Random Garden Pictures

by D. W. Hyatt

See the full gallery: Click Here

EOF