### THIS RETURNS ONLY A SINGLE DIRECTORY, no object reference !???
   undef @files;
   $dirfunc = sub {
     return undef unless $_[0]; # Mac specific  
     my ($dir,@val) = @_;
       
     if( $filter ) {
       $dir =~ /$filter/o and FileFinder->new( name => $dir )
     }
     else {
       push @val, FileFinder->new( name => $dir );
       return @val;
     }
   };