sub npa {

    #This purdy little thing searches the NPA-NXX given to STDIN
    #Then it prints the happy little output to the terminal.

    print "\n", " " x 31, "Look Up NPANXX Info\n";
    print " " x 27, "=" x 30, "\n";
    print " " x 30, "Please enter NPANXX:";
    chomp( $cnip = <STDIN> );
    if ( $cnip =~ /\d{6}/ ) {
        &npa1;
    }
    else {
        &err2;
    }

    sub npa1 {
        open( TECH, "</export/home2/knxvcs/knxvcs56/ttu/npalist" )
          || die "Oops : $!";
        while (<TECH>) {
            if ( $cnip / ) {
                (@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;
            }
            else { &err3($cnip) }
        }

        close(TECH);    #Close file
    }
}