$search = $top->Entry ('-width'            => 20,
                            '-validate'         => 'key',
                            '-validatecommand'  => sub {$_[1] =~/\w+/ ;} ,
                            '-invalidcommand'   => sub {$top -> bell() ;},
			   ) ->pack('-side' => 'left');