my $widget=$toplevel->Listbox(-height=>0,-width=>0)->pack;

##</code><code>##

my $widget=$toplevel->Scrolled('Listbox', -scrollbars=>'e',-height=>0, -width=>0)->pack;