use Tk;
my $MW = MainWindow->new();
my $frame_lb = $MW->Frame();
$frame_lb->pack(-side => 'top', -pady => '20', -expand => 'n', -fill => 'both');

my $lbox = $frame_lb->Scrolled("Listbox", 
-scrollbars => "e", 
-selectmode => "single", 
-selectbackground => 'green', 
-height => 3)->pack(-side => 'left', -anchor => 'e');

my @list = ( "a", "b", "c", "d", "e", "f" );
$lbox->insert('end', @list );


$lbox->bind("<ButtonPress-1>" => sub {
	print "event trigged\n";
});

#trigger the event programmatically
$lbox->eventGenerate("<ButtonPress-1>");

MainLoop;