my @anomalies;
sub recurseDir2 {
   my @temp = (glob $_[0]);
   foreach (@temp) {
      if (-d $_) {
         print "Directory: $_" , "\n" ;
         recurseDir2("$_/*");   
      }
      elsif (-f $_) {
         print "File: $_ \n";
      }
      else {
         push @anomalies, $_;
      }
   }  
}
print "Anomalies: @anomalies";