Select Code to Download

     $search = $top->Entry ('-width'            => 20,
...
                            '-invalidcommand'   => sub {$top -> bell()
+ ;},
               ) ->pack('-side' => 'left');

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