#!/usr/bin/perl
#
open(PRINTORDER, ";
foreach $file (@Order)
{
chomp($file);
open(FILE, "<$file") || die "$file: $!\n";
@CurrentFile = ;
my $skipHeader = 1;
while($skipHeader)
{
$skipHeader = 0 if $CurrentFile[0] =~ m!\
ENDOFCHAPTERHEADER
++$HeaderPrinted;
while($CurrentFile[0] !~ m!\