sub con {
   #Gives the option to connect to different system
        print " " x 34, "Connect To $npa[2]?\n\n";
        print " " x 20, "Press v for VM and s for Switch <Enter> To Exit:";
 
        chomp( $read = <STDIN> );
        if ( $read =~ m/^[sS]/ ) {
                system( "/usr/bin/wmc/talker", $npa[6] );
        }
        if ( $read =~ m/^[vV]/ ) { system( "/usr/bin/telnet", $npa[7]) }
        else { &menu }
 
        system("clear");
        menu();
}