use Tk;

my $mw = MainWindow -> new();

my $lb = $mw -> Scrolled("Listbox",

	-scrollbars=>'e' ,
	
) -> pack(

	-side => 'left' ,
	-fill => 'y'
);


foreach my $key ("a" , "b" , "c") {
	
	$lb -> insert( 'end', $key );

}

	$lb->activate ( 0 ) ;
	$lb->selectionSet ( 0 ) ;

$lb -> bind ('<Key-Down>', sub {print "haha\n"} );

$mw -> bind ('<Key-Up>', sub {print "\nblabla"} );


MainLoop;