Select Code to Download

# select everything
$lb->selectionSet(0, 'end' );

@selected = $lb->curselection;
unless (@selected) {
...
foreach (@selected) {
  # do something with the index in $_
}