Select Code to Download

#!/usr/bin/perl

...
  dusage ( $directory );
}

my %threads;
foreach my $directory ( @dirs )
...
  $threads{$directory} -> join;
  print "done.\n";
}