Hello Monks, I have a code, which apparently working fine but Perl shoots its own error msg and output looks ugly. Pls see the code snippet below :

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

This Code snippet works fine BUT gives below error, when i press 'return/Enter' Key:

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
[download]

Pls help me to suppress the Perl's unwanted warning. Thanks