my $mw=new MainWindow;
$lb = $mw->Listbox( -selectmode =>"multiple")->pack;
$lb->insert('end', @dir);
$mw->Button(-text => "ok", -command=> \&dosomething)->pack;

MainLoop;
# ----------------------------
sub dosomething {
  my @selected = $lb->curselection;
  print scalar @selected;
  $mw->destroy();
} # dosomething