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