my $had_match = 0; #see? now the sub nesting breaks the code..
        while (<TECH>) {
            if ( /$cnip/ ) {
                $had_match++;
                (@npa) = split (/\:/);
                print "\n", " " x 14, "*" x 60;

                print "\n", " " x 24, "=" x 40, "\n";
                print " " x 24, "NPANXX   Line   Switch MSR&CUSTGP VMX\n";
                print " " x 24,
                  "$npa[0] $npa[1]  $npa[2]    $npa[3] $npa[4]    $npa[5]\n";
                print " " x 24, "=" x 40, "\n\n";
                con();
            }
        }
        close(TECH);    #Close file
        err3($cnip) unless $had_match;