#!/usr/bin/perl
use strict;
use warnings FATAL => qw( all );

use CGI::Carp qw(fatalsToBrowser);

use lib '../files/perl/lib';
use Base::HTML qw(print_story print_definitions);

print_story(*DATA,1);

__DATA__
Paragraph that opens the document.
2 Heading for definition list
This is the paragraph that precedes the definition list.
&print_definitions( file => "some_file_a.txt", headings => ["term","definition"],)
This is the paragraph that follows the definition list.
2 Heading for next definition list
This is the paragraph that precedes the next definition list.
&print_definitions( file => "some_file_b.txt", headings => ["term","definition 1","definition 2"],)
This is the paragraph that follows the next definition list.
2 Heading for the close of the document
The paragraph that closes the document.