use strict;
use warnings;

##</code><code>##

use strict;
use warnings;
use diagnostics;

##</code><code>##

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

##</code><code>##

pseudocode:

while ( <FILE> ) {
    do_stuff_to_process_file();
    get_needed_info();
}

do_output_related_stuff_outside_the_above_block();