$mw -> Button(-text=>"Find Directory", 
-command =>\&LoadListBox) -> pack();
...
sub LoadListBox {
### CHOOSE DIRECTORY, and if successfull, read filelist
     my $filepath = $mw->chooseDirectory() or return();
     .... 

}