processDirs($config, @dirs)
...
sub processDirs
{
   my ($config, @dirs) = @_;

   print "Processing Dirs...\n" if $config->{verbose} > 0;
   system($config->{script}, $_) for @dirs;
}