open my $rfh, '<', $CaptionFile or return "$CaptionFile: open(ro) failed: $!\n";
{
	# perldoc perlvar
	local $/ = "\n\n";
	@captions = <$rfh>;
	chomp @captions;
}
close $rfh or die "$CaptionFile: close(ro) failed: $!\n";