Select Code to Download

1       899682  <B6>^E
1       899740  <B5>^E
...
1       901188  <B5>^E
1       901369  <B6>^E<B8>^E<BD>^E
1       901423  <B5>^E<BD>^E

my $lineCount = 0;
foreach my $file (@whiFiles) {
...
    close IN;
}
print "Line count is $lineCount\n";

my $lineCount = 0;
foreach my $file (@whiFiles) {
...
    close $HANDLE;
}
print "Line count is $lineCount\n";