Select Code to Download

use strict;
#use warnings;

use strict;
use warnings;

while (<COMPFILE>) {
    $comptn = substr $_, 0,10;
...


sub search_tn {

while (<COMPFILE>) {
    search_tn( substr $_, 0, 10 );
...

sub search_tn {
    my $comptn = shift;

        next until $. > 1;

        next if $. == 1;

        if ($record[0] eq "TLR") {
        } else {

        next if $record[0] eq "TLR";

                if ($error == "") {

                if ($error eq "") {