my $fname = "JPGfilelist.txt"; my $settitle = shift; open (IN, $fname) || die "can't open $fname\n"; print "\n"; print "$settitle\n"; print "\n"; print "

$settitle

\n"; print "\n"; my $count = 0; while () { chomp; my ($picname, $pictext) = split (/:/,$_); my $picroot = $picname; $picroot =~ s/\.JPG//i; print "\n"; $count++; if ($count eq 4) { $count = 0; print "\n"; } }

$pictext