use Tk;

$top = MainWindow->new();
$lb  = $top->Scrolled('Listbox', -scrollbars=>'e', -label=>'Test')->pack(-side=>left, -expand=>1, -fill=>'both');
foreach $line (1..50) {$lb->insert('end', "This is line $line")}
MainLoop();