Just something quick and dirty to display the most recent JPEG you predefine in the <DATA> field.

#!/usr/bin/perl -w

use strict;

my %cams;
while(<DATA>){
chomp;
my $lm = -M $_;
$cams{$lm} = $_;
}

my $recent = (sort keys %cams)[0];

open(my $fh, "<", $cams{$recent}) or die("Cannot open file! $!");
flock($fh, 4);
print "Content-type: image/jpeg\n\n";
binmode STDOUT;
$/ = \8192; # read data in 8kbyte chunks rather than from LF to LF
            # see perldoc perlvar (thanks Aristotle id://189265)
print while <$fh>;

close($fh);

__DATA__
../httpdocs/cam/cam.jpg
../web_users/someone_else/cam.jpg
[download]

I use this on my homepage to show the most recent of the two webcams I have. You can easily add other files by placing each file on a line by itself after the __DATA__ line.

The easiest way to learn anything is by having fun...

John J Reiser
newrisedesigns.com