#!/usr/local/bin/perl 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