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