my %threads;
foreach my $directory ( @dirs )
{
  print "starting $directory search thread\n";
  $threads{$directory} = threads -> new ( \&dusage,$directory );
}
foreach my $directory ( @dirs )
{
  print "waiting for $directory collator thread to join...";
  $threads{$directory} -> join;
  print "done.\n";
}