Print "Enter the Serial No. for Server to check its     CPU usage :";
        Print "OR, Press 22 to EXIT ...  ";
        chomp($CHOICE = <STDIN>);
        print " " ;
        if(($CHOICE =~ /\s/)||($CHOICE =~ /\D/)||($CHOICE > 22)||($CHOICE < 1))
        {
                Print "ERROR : Bad Choice...Try again now..";
                system("sleep 1.5");
                disp_menu();
        } elsif ($CHOICE == 22) {
                                Print "INFO_CODE:22  User Opted to EXIT, Exiting now...";
                                exit 22;
                        } else {
                        $SSHSRVR = $SRV{$CHOICE};
                        Print "Server selected is : $SRV{$CHOICE}";
                        cpuchk($SSHSRVR);


##</code><code>##

Argument "" isn't numeric in numeric gt (>) at ./cpu_chk.pl line 107, <STDIN> line 1.    --------->Perl Error Message

ERROR : Bad Choice...Try again now..  --->My Error Message