Select Code to Download

use strict;
use warnings;
...
}

close $fh;

use strict;
use warnings;
...
    print +( join "\n", @certainLines ) . "\n";
    print "---------- End Page $pageNumber ----------\n";
}