Select Code to Download

use strict;
use Tk;
...
$listbox->pack( -expand => 1, -fill => 'both' );

MainLoop;

my $xsb = $listbox->Subwidget("xscrollbar");
my $ysb = $listbox->Subwidget("yscrollbar");

$xsb->configure(-width => 10);
$ysb->configure(-width => 10);