Select Code to Download

#!/usr/bin/perl
use strict;
...
__DATA__
This is the first paragraph in the story.
This is the last paragraph in the story.

#!/usr/bin/perl
use strict;
...
This is the paragraph that follows the next definition list.
2 Heading for the close of the document
The paragraph that closes the document.

sub print_story {
  my ($source,$html) = @_;
...
  end_html if exists($opt{html});
}