#perl -w use strict; use Tk; my @planets = qw / Mercury Venus Earth Mars Jupiter Saturn Uranus Neptun Pluto /; my $mw = MainWindow->new(); my $plist = $mw->Scrolled( "Listbox", -scrollbars => 'oe', -selectmode => 'single', -height => 4, -setgrid => 1 ); foreach my $planet (@planets) { $plist->insert( 'end', $planet ); } $plist->pack(); MainLoop();