Select Code to Download

'-validatecommand'  => sub {$_[1] =~/[\w:-]+/ ;} ,

'-invalidcommand' => sub {
                          return if $_[1] =~/^[[:cntrl:]] ;
                          $top -> bell;
                         }

'-invalidcommand' => sub {
                          $top -> bell if $_[1] =~/^[[:cntrl:]] ;
                         }