#!/usr/bin/perl
use warnings;
use strict;

# open and slurp file.
open(FILE, "</full/path/to/image_metadata.txt")
  or die "The file could not be opened (fatal): $!.\n";
my @records = <FILE>; close(FILE);

# get random entry.
my $rand = rand( scalar @records );

#chop records
chop($records[$rand]);

# now, split the entry.
my ($image, $year, $location, $title) = split(/\,/, $records[$rand]);

# open the SSI.
open(SSI, ">/full/path/to/include/file/rand_image.html")
  or die "The file could not be opened (fatal): $!.\n";
print SSI <<HTML;
<div><img src="/photos/thumbs/$image" height="149" width="198" alt="$title" /></div>
<div>Photos: $year: $location<br />Title: $title</div>
HTML

exit;