my $mw=new MainWindow;
$lb = $mw->Listbox( -selectmode =>"multiple")->pack;
$lb->insert('end', @dir);
my @selected = $lb->curselection;
$mw->Button(-text=>"ok",-command=>[$mw => 'destroy'] )->pack;

MainLoop;

print scalar @selected;