#!/usr/bin/perl # randompic.pl # elects a random JPG or GIF image and writes html file presenting the picture srand; $i=0; while (<*.JPG *.jpg *.gif *.GIF *.JPEG *.jpeg>) { $array[$i++] = $_; } $image = $array[int(rand($i))]; print<

Random Pictures

EOF