Select Code to Download

use strict;
use warnings;
use Tk;
...
$lbox->bind('<<ListboxSelect>>', sub{warn "ListBox changed\n"} );

$mw->MainLoop;