#!/usr/bin/perl

   use File::Find;

   $photo_dir = '/path/to/public_html/photos';

   $photo_url = "http://www.foo.com/photos";

   print "Content-type: text/html\n\n";

   find(\&wanted, $photo_dir);

      sub wanted {
             if ( (stat $_)[9] > time() - (86400 * 1) ) { # all pics within the past 24 hours
             print "<img src=\"$photo_url/$_\" height=150 width=150><p>\n";
             	}
             }