use Tk;
use Tk::SearchEntry;

my $main = MainWindow->new;

$w = $main->Scrolled(
	'SearchEntry', #custom widget
	-scrollbars => '',
	-width => 70,
	-height => 1,
	-bg => "#ffffff",
)->grid(
	-sticky => 'w',
	-row => 1,
	-column => 0,
	-padx => 5,
	-pady => 1,
);

$main->Button(
   -text => "Change",
   -command => sub {
      $w->configure(-width => 10, -height => 10);
})->grid;

MainLoop;