Select Code to Download

use strict;
use warnings;

use strict;
use warnings;
use diagnostics;

my $Borrower = "null";
my $activeDate = "null";
...
my $on = 0;
my $line;
my $nextline;

pseudocode:

...
}

do_output_related_stuff_outside_the_above_block();