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