{ 
  my $verbose;
  my $script;

  sub processDir {
    my $dir = shift @_;
    
    my $ret = qx($script $dir);
    chomp($ret);
    print qq(Output:"$ret"\n) if $verbose;
  }
}