#!/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_story(*DATA,1);

__DATA__
This is the first paragraph in the story.
This is the last paragraph in the story.