sub scan {
  $listbox->insert('end', "Scanning...");
  open CMD, 
    qq[perl -lne "foreach (glob '$_/*'){print if !/Makefile[.inc]*$/}" zz.lis] 
    or die $!;
    
  while( <CMD> ) {
      chomp;
      $listbox->insert( 'end', $_ );
      DoOneEvent();
  }
  $listbox->insert('end', "Done.");
}