Select Code to Download

use strict;
#use warnings;
...
    close (FH);
    }
}

if ($comptn != $tele) {
   print OUTFILE "TN $comptn not found \n";
}